home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-08-26 | 84.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 41 75 67 20 32 36 20 32 | on Fri |Aug 26 2|
|00000040| 33 3a 33 30 3a 35 30 20 | 31 39 39 34 0a 3b 3b 3b |3:30:50 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 65 64 65 62 75 | 67 2e 65 6c 0a 3b 3b 3b |sp/edebu|g.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 35 2e 39 34 2e | 38 2e 0a 3b 3b 3b 20 62 |9.25.94.|8..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |).. |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))). |
|00000190| 28 65 72 72 6f 72 20 22 | 60 2f 67 64 2f 67 6e 75 |(error "|`/gd/gnu|
|000001a0| 2f 65 6d 61 63 73 2f 31 | 39 2e 30 2f 6c 69 73 70 |/emacs/1|9.0/lisp|
|000001b0| 2f 65 64 65 62 75 67 2e | 65 6c 27 20 77 61 73 20 |/edebug.|el' was |
|000001c0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001d0| 63 73 20 31 39 22 29 29 | 0a 0a 28 62 79 74 65 2d |cs 19"))|..(byte-|
|000001e0| 63 6f 64 65 20 22 c0 19 | c0 c2 c3 09 5c 22 c4 95 |code "..|....\"..|
|000001f0| 4f 29 15 c6 c7 21 88 c8 | c9 21 84 1a 00 c9 ca 4d |O)...!..|.!.....M|
|00000200| 88 cb 16 5c 66 c2 87 22 | 20 5b 22 24 52 65 76 69 |...\f.."| ["$Revi|
|00000210| 73 69 6f 6e 3a 20 33 2e | 35 2e 31 2e 31 30 20 24 |sion: 3.|5.1.10 $|
|00000220| 22 20 72 61 77 2d 76 65 | 72 73 69 6f 6e 20 73 74 |" raw-ve|rsion st|
|00000230| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5b 30 2d 39 |ring-mat|ch "[0-9|
|00000240| 2e 5d 2a 22 20 30 20 65 | 64 65 62 75 67 2d 76 65 |.]*" 0 e|debug-ve|
|00000250| 72 73 69 6f 6e 20 72 65 | 71 75 69 72 65 20 62 61 |rsion re|quire ba|
|00000260| 63 6b 71 75 6f 74 65 20 | 66 62 6f 75 6e 64 70 20 |ckquote |fboundp |
|00000270| 64 65 66 61 6c 69 61 73 | 20 66 73 65 74 20 22 6c |defalias| fset "l|
|00000280| 69 62 65 72 74 65 40 63 | 73 2e 75 69 75 63 2e 65 |iberte@c|s.uiuc.e|
|00000290| 64 75 22 20 65 64 65 62 | 75 67 2d 6d 61 69 6e 74 |du" edeb|ug-maint|
|000002a0| 61 69 6e 65 72 2d 61 64 | 64 72 65 73 73 5d 20 34 |ainer-ad|dress] 4|
|000002b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 64 65 |).(defal|ias 'ede|
|000002c0| 62 75 67 2d 73 75 62 6d | 69 74 2d 62 75 67 2d 72 |bug-subm|it-bug-r|
|000002d0| 65 70 6f 72 74 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |eport #[|nil "..!|
|000002e0| 88 c2 c3 21 85 21 00 c4 | 0d c6 0e 07 50 c8 c9 ca |...!.!..|....P...|
|000002f0| cb cc cd ce cf d0 d1 d2 | d3 d4 d5 af 0e 23 87 22 |........|.....#."|
|00000300| 20 5b 72 65 71 75 69 72 | 65 20 72 65 70 6f 72 74 | [requir|e report|
|00000310| 65 72 20 79 2d 6f 72 2d | 6e 2d 70 20 22 44 6f 20 |er y-or-|n-p "Do |
|00000320| 79 6f 75 20 72 65 61 6c | 6c 79 20 77 61 6e 74 20 |you real|ly want |
|00000330| 74 6f 20 73 75 62 6d 69 | 74 20 61 20 72 65 70 6f |to submi|t a repo|
|00000340| 72 74 20 6f 6e 20 65 64 | 65 62 75 67 3f 20 22 20 |rt on ed|ebug? " |
|00000350| 72 65 70 6f 72 74 65 72 | 2d 73 75 62 6d 69 74 2d |reporter|-submit-|
|00000360| 62 75 67 2d 72 65 70 6f | 72 74 20 65 64 65 62 75 |bug-repo|rt edebu|
|00000370| 67 2d 6d 61 69 6e 74 61 | 69 6e 65 72 2d 61 64 64 |g-mainta|iner-add|
|00000380| 72 65 73 73 20 22 65 64 | 65 62 75 67 2e 65 6c 20 |ress "ed|ebug.el |
|00000390| 22 20 65 64 65 62 75 67 | 2d 76 65 72 73 69 6f 6e |" edebug|-version|
|000003a0| 20 65 64 65 62 75 67 2d | 73 65 74 75 70 2d 68 6f | edebug-|setup-ho|
|000003b0| 6f 6b 20 65 64 65 62 75 | 67 2d 61 6c 6c 2d 64 65 |ok edebu|g-all-de|
|000003c0| 66 73 20 65 64 65 62 75 | 67 2d 61 6c 6c 2d 66 6f |fs edebu|g-all-fo|
|000003d0| 72 6d 73 20 65 64 65 62 | 75 67 2d 65 76 61 6c 2d |rms edeb|ug-eval-|
|000003e0| 6d 61 63 72 6f 2d 61 72 | 67 73 20 65 64 65 62 75 |macro-ar|gs edebu|
|000003f0| 67 2d 73 74 6f 70 2d 62 | 65 66 6f 72 65 2d 73 79 |g-stop-b|efore-sy|
|00000400| 6d 62 6f 6c 73 20 65 64 | 65 62 75 67 2d 73 61 76 |mbols ed|ebug-sav|
|00000410| 65 2d 77 69 6e 64 6f 77 | 73 20 65 64 65 62 75 67 |e-window|s edebug|
|00000420| 2d 73 61 76 65 2d 64 69 | 73 70 6c 61 79 65 64 2d |-save-di|splayed-|
|00000430| 62 75 66 66 65 72 2d 70 | 6f 69 6e 74 73 20 65 64 |buffer-p|oints ed|
|00000440| 65 62 75 67 2d 69 6e 69 | 74 69 61 6c 2d 6d 6f 64 |ebug-ini|tial-mod|
|00000450| 65 20 65 64 65 62 75 67 | 2d 74 72 61 63 65 20 65 |e edebug|-trace e|
|00000460| 64 65 62 75 67 2d 74 65 | 73 74 2d 63 6f 76 65 72 |debug-te|st-cover|
|00000470| 61 67 65 20 65 64 65 62 | 75 67 2d 63 6f 6e 74 69 |age edeb|ug-conti|
|00000480| 6e 75 65 2d 6b 62 64 2d | 6d 61 63 72 6f 20 65 64 |nue-kbd-|macro ed|
|00000490| 65 62 75 67 2d 70 72 69 | 6e 74 2d 6c 65 6e 67 74 |ebug-pri|nt-lengt|
|000004a0| 68 20 65 64 65 62 75 67 | 2d 70 72 69 6e 74 2d 6c |h edebug|-print-l|
|000004b0| 65 76 65 6c 20 65 64 65 | 62 75 67 2d 70 72 69 6e |evel ede|bug-prin|
|000004c0| 74 2d 63 69 72 63 6c 65 | 5d 20 31 37 20 22 5c 0a |t-circle|] 17 "\.|
|000004d0| 53 75 62 6d 69 74 2c 20 | 76 69 61 20 6d 61 69 6c |Submit, |via mail|
|000004e0| 2c 20 61 20 62 75 67 20 | 72 65 70 6f 72 74 20 6f |, a bug |report o|
|000004f0| 6e 20 65 64 65 62 75 67 | 2e 22 20 6e 69 6c 5d 29 |n edebug|." nil])|
|00000500| 0a 28 64 65 66 76 61 72 | 20 65 64 65 62 75 67 2d |.(defvar| edebug-|
|00000510| 73 65 74 75 70 2d 68 6f | 6f 6b 20 6e 69 6c 20 22 |setup-ho|ok nil "|
|00000520| 5c 0a 2a 46 75 6e 63 74 | 69 6f 6e 73 20 74 6f 20 |\.*Funct|ions to |
|00000530| 63 61 6c 6c 20 62 65 66 | 6f 72 65 20 65 64 65 62 |call bef|ore edeb|
|00000540| 75 67 20 69 73 20 75 73 | 65 64 2e 0a 45 61 63 68 |ug is us|ed..Each|
|00000550| 20 74 69 6d 65 20 69 74 | 20 69 73 20 73 65 74 20 | time it| is set |
|00000560| 74 6f 20 61 20 6e 65 77 | 20 76 61 6c 75 65 2c 20 |to a new| value, |
|00000570| 45 64 65 62 75 67 20 77 | 69 6c 6c 20 63 61 6c 6c |Edebug w|ill call|
|00000580| 20 74 68 6f 73 65 20 66 | 75 6e 63 74 69 6f 6e 73 | those f|unctions|
|00000590| 0a 6f 6e 63 65 20 61 6e | 64 20 74 68 65 6e 20 60 |.once an|d then `|
|000005a0| 65 64 65 62 75 67 2d 73 | 65 74 75 70 2d 68 6f 6f |edebug-s|etup-hoo|
|000005b0| 6b 27 20 69 73 20 72 65 | 73 65 74 20 74 6f 20 6e |k' is re|set to n|
|000005c0| 69 6c 2e 20 20 59 6f 75 | 20 63 6f 75 6c 64 20 75 |il. You| could u|
|000005d0| 73 65 20 74 68 69 73 0a | 74 6f 20 6c 6f 61 64 20 |se this.|to load |
|000005e0| 75 70 20 45 64 65 62 75 | 67 20 73 70 65 63 69 66 |up Edebu|g specif|
|000005f0| 69 63 61 74 69 6f 6e 73 | 20 61 73 73 6f 63 69 61 |ications| associa|
|00000600| 74 65 64 20 77 69 74 68 | 20 61 20 70 61 63 6b 61 |ted with| a packa|
|00000610| 67 65 20 79 6f 75 20 61 | 72 65 0a 75 73 69 6e 67 |ge you a|re.using|
|00000620| 20 62 75 74 20 6f 6e 6c | 79 20 77 68 65 6e 20 79 | but onl|y when y|
|00000630| 6f 75 20 61 6c 73 6f 20 | 75 73 65 20 45 64 65 62 |ou also |use Edeb|
|00000640| 75 67 2e 22 29 0a 28 64 | 65 66 76 61 72 20 65 64 |ug.").(d|efvar ed|
|00000650| 65 62 75 67 2d 61 6c 6c | 2d 64 65 66 73 20 6e 69 |ebug-all|-defs ni|
|00000660| 6c 20 22 5c 0a 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |l "\.*If| non-nil|
|00000670| 2c 20 65 76 61 6c 75 61 | 74 69 6f 6e 20 6f 66 20 |, evalua|tion of |
|00000680| 61 6e 79 20 64 65 66 69 | 6e 69 6e 67 20 66 6f 72 |any defi|ning for|
|00000690| 6d 73 20 77 69 6c 6c 20 | 69 6e 73 74 72 75 6d 65 |ms will |instrume|
|000006a0| 6e 74 20 66 6f 72 20 45 | 64 65 62 75 67 2e 0a 54 |nt for E|debug..T|
|000006b0| 68 69 73 20 61 70 70 6c | 69 65 73 20 74 6f 20 60 |his appl|ies to `|
|000006c0| 65 76 61 6c 2d 64 65 66 | 75 6e 27 2c 20 60 65 76 |eval-def|un', `ev|
|000006d0| 61 6c 2d 72 65 67 69 6f | 6e 27 2c 20 60 65 76 61 |al-regio|n', `eva|
|000006e0| 6c 2d 62 75 66 66 65 72 | 27 2c 20 61 6e 64 0a 60 |l-buffer|', and.`|
|000006f0| 65 76 61 6c 2d 63 75 72 | 72 65 6e 74 2d 62 75 66 |eval-cur|rent-buf|
|00000700| 66 65 72 27 2e 20 20 60 | 65 76 61 6c 2d 72 65 67 |fer'. `|eval-reg|
|00000710| 69 6f 6e 27 20 69 73 20 | 61 6c 73 6f 20 63 61 6c |ion' is |also cal|
|00000720| 6c 65 64 20 62 79 0a 60 | 65 76 61 6c 2d 6c 61 73 |led by.`|eval-las|
|00000730| 74 2d 73 65 78 70 27 2c | 20 61 6e 64 20 60 65 76 |t-sexp',| and `ev|
|00000740| 61 6c 2d 70 72 69 6e 74 | 2d 6c 61 73 74 2d 73 65 |al-print|-last-se|
|00000750| 78 70 27 2e 0a 0a 59 6f | 75 20 63 61 6e 20 75 73 |xp'...Yo|u can us|
|00000760| 65 20 74 68 65 20 63 6f | 6d 6d 61 6e 64 20 60 65 |e the co|mmand `e|
|00000770| 64 65 62 75 67 2d 61 6c | 6c 2d 64 65 66 73 27 20 |debug-al|l-defs' |
|00000780| 74 6f 20 74 6f 67 67 6c | 65 20 74 68 65 20 76 61 |to toggl|e the va|
|00000790| 6c 75 65 20 6f 66 20 74 | 68 69 73 0a 76 61 72 69 |lue of t|his.vari|
|000007a0| 61 62 6c 65 2e 20 20 59 | 6f 75 20 6d 61 79 20 77 |able. Y|ou may w|
|000007b0| 69 73 68 20 74 6f 20 6d | 61 6b 65 20 69 74 20 6c |ish to m|ake it l|
|000007c0| 6f 63 61 6c 20 74 6f 20 | 65 61 63 68 20 62 75 66 |ocal to |each buf|
|000007d0| 66 65 72 20 77 69 74 68 | 0a 28 6d 61 6b 65 2d 6c |fer with|.(make-l|
|000007e0| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 27 65 |ocal-var|iable 'e|
|000007f0| 64 65 62 75 67 2d 61 6c | 6c 2d 64 65 66 73 29 20 |debug-al|l-defs) |
|00000800| 69 6e 20 79 6f 75 72 0a | 60 65 6d 61 63 73 2d 6c |in your.|`emacs-l|
|00000810| 69 73 70 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 27 2e 22 |isp-mode|-hook'."|
|00000820| 29 0a 28 64 65 66 76 61 | 72 20 65 64 65 62 75 67 |).(defva|r edebug|
|00000830| 2d 61 6c 6c 2d 66 6f 72 | 6d 73 20 6e 69 6c 20 22 |-all-for|ms nil "|
|00000840| 5c 0a 2a 4e 6f 6e 2d 6e | 69 6c 20 65 76 61 6c 75 |\.*Non-n|il evalu|
|00000850| 61 74 69 6f 6e 20 6f 66 | 20 61 6c 6c 20 66 6f 72 |ation of| all for|
|00000860| 6d 73 20 77 69 6c 6c 20 | 69 6e 73 74 72 75 6d 65 |ms will |instrume|
|00000870| 6e 74 20 66 6f 72 20 45 | 64 65 62 75 67 2e 0a 54 |nt for E|debug..T|
|00000880| 68 69 73 20 64 6f 65 73 | 6e 27 74 20 61 70 70 6c |his does|n't appl|
|00000890| 79 20 74 6f 20 6c 6f 61 | 64 69 6e 67 20 6f 72 20 |y to loa|ding or |
|000008a0| 65 76 61 6c 75 61 74 69 | 6f 6e 73 20 69 6e 20 74 |evaluati|ons in t|
|000008b0| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 2e 0a 55 |he minib|uffer..U|
|000008c0| 73 65 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 20 65 |se the c|ommand e|
|000008d0| 64 65 62 75 67 2d 61 6c | 6c 2d 66 6f 72 6d 73 20 |debug-al|l-forms |
|000008e0| 74 6f 20 74 6f 67 67 6c | 65 20 74 68 65 20 76 61 |to toggl|e the va|
|000008f0| 6c 75 65 20 6f 66 20 74 | 68 69 73 20 6f 70 74 69 |lue of t|his opti|
|00000900| 6f 6e 2e 22 29 0a 28 64 | 65 66 76 61 72 20 65 64 |on.").(d|efvar ed|
|00000910| 65 62 75 67 2d 65 76 61 | 6c 2d 6d 61 63 72 6f 2d |ebug-eva|l-macro-|
|00000920| 61 72 67 73 20 6e 69 6c | 20 22 5c 0a 2a 4e 6f 6e |args nil| "\.*Non|
|00000930| 2d 6e 69 6c 20 6d 65 61 | 6e 73 20 61 6c 6c 20 6d |-nil mea|ns all m|
|00000940| 61 63 72 6f 20 63 61 6c | 6c 20 61 72 67 75 6d 65 |acro cal|l argume|
|00000950| 6e 74 73 20 6d 61 79 20 | 62 65 20 65 76 61 6c 75 |nts may |be evalu|
|00000960| 61 74 65 64 2e 20 20 0a | 49 66 20 74 68 69 73 20 |ated. .|If this |
|00000970| 76 61 72 69 61 62 6c 65 | 20 69 73 20 6e 69 6c 2c |variable| is nil,|
|00000980| 20 74 68 65 20 64 65 66 | 61 75 6c 74 2c 20 65 64 | the def|ault, ed|
|00000990| 65 62 75 67 20 77 69 6c | 6c 20 2a 6e 6f 74 2a 20 |ebug wil|l *not* |
|000009a0| 77 72 61 70 0a 6d 61 63 | 72 6f 20 63 61 6c 6c 20 |wrap.mac|ro call |
|000009b0| 61 72 67 75 6d 65 6e 74 | 73 20 61 73 20 69 66 20 |argument|s as if |
|000009c0| 74 68 65 79 20 77 69 6c | 6c 20 62 65 20 65 76 61 |they wil|l be eva|
|000009d0| 6c 75 61 74 65 64 2e 20 | 20 0a 46 6f 72 20 65 61 |luated. | .For ea|
|000009e0| 63 68 20 6d 61 63 72 6f | 2c 20 61 20 65 64 65 62 |ch macro|, a edeb|
|000009f0| 75 67 2d 66 6f 72 6d 2d | 73 70 65 63 20 6f 76 65 |ug-form-|spec ove|
|00000a00| 72 72 69 64 65 73 20 74 | 68 69 73 20 6f 70 74 69 |rrides t|his opti|
|00000a10| 6f 6e 2e 0a 53 6f 20 74 | 6f 20 73 70 65 63 69 66 |on..So t|o specif|
|00000a20| 79 20 65 78 63 65 70 74 | 69 6f 6e 73 20 66 6f 72 |y except|ions for|
|00000a30| 20 6d 61 63 72 6f 73 20 | 74 68 61 74 20 68 61 76 | macros |that hav|
|00000a40| 65 20 73 6f 6d 65 20 61 | 72 67 75 6d 65 6e 74 73 |e some a|rguments|
|00000a50| 20 65 76 61 6c 75 61 74 | 65 64 0a 61 6e 64 20 73 | evaluat|ed.and s|
|00000a60| 6f 6d 65 20 6e 6f 74 2c | 20 79 6f 75 20 73 68 6f |ome not,| you sho|
|00000a70| 75 6c 64 20 73 70 65 63 | 69 66 79 20 61 6e 20 65 |uld spec|ify an e|
|00000a80| 64 65 62 75 67 2d 66 6f | 72 6d 2d 73 70 65 63 2e |debug-fo|rm-spec.|
|00000a90| 0a 0a 54 68 69 73 20 6f | 70 74 69 6f 6e 20 69 73 |..This o|ption is|
|00000aa0| 20 67 6f 69 6e 67 20 61 | 77 61 79 20 73 6f 6f 6e | going a|way soon|
|00000ab0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 65 64 65 62 |.").(def|var edeb|
|00000ac0| 75 67 2d 73 74 6f 70 2d | 62 65 66 6f 72 65 2d 73 |ug-stop-|before-s|
|00000ad0| 79 6d 62 6f 6c 73 20 6e | 69 6c 20 22 5c 0a 2a 4e |ymbols n|il "\.*N|
|00000ae0| 6f 6e 2d 6e 69 6c 20 63 | 61 75 73 65 73 20 45 64 |on-nil c|auses Ed|
|00000af0| 65 62 75 67 20 74 6f 20 | 73 74 6f 70 20 62 65 66 |ebug to |stop bef|
|00000b00| 6f 72 65 20 73 79 6d 62 | 6f 6c 73 20 61 73 20 77 |ore symb|ols as w|
|00000b10| 65 6c 6c 20 61 73 20 61 | 66 74 65 72 2e 20 20 0a |ell as a|fter. .|
|00000b20| 49 6e 20 61 6e 79 20 63 | 61 73 65 2c 20 61 20 62 |In any c|ase, a b|
|00000b30| 72 65 61 6b 70 6f 69 6e | 74 20 6f 72 20 69 6e 74 |reakpoin|t or int|
|00000b40| 65 72 72 75 70 74 20 6d | 61 79 20 73 74 6f 70 20 |errupt m|ay stop |
|00000b50| 62 65 66 6f 72 65 20 61 | 20 73 79 6d 62 6f 6c 2e |before a| symbol.|
|00000b60| 0a 0a 54 68 69 73 20 6f | 70 74 69 6f 6e 20 69 73 |..This o|ption is|
|00000b70| 20 67 6f 69 6e 67 20 61 | 77 61 79 20 73 6f 6f 6e | going a|way soon|
|00000b80| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 65 64 65 62 |.").(def|var edeb|
|00000b90| 75 67 2d 73 61 76 65 2d | 77 69 6e 64 6f 77 73 20 |ug-save-|windows |
|00000ba0| 74 20 22 5c 0a 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |t "\.*If| non-nil|
|00000bb0| 2c 20 45 64 65 62 75 67 | 20 73 61 76 65 73 20 61 |, Edebug| saves a|
|00000bc0| 6e 64 20 72 65 73 74 6f | 72 65 73 20 74 68 65 20 |nd resto|res the |
|00000bd0| 77 69 6e 64 6f 77 20 63 | 6f 6e 66 69 67 75 72 61 |window c|onfigura|
|00000be0| 74 69 6f 6e 2e 0a 54 68 | 61 74 20 74 61 6b 65 73 |tion..Th|at takes|
|00000bf0| 20 73 6f 6d 65 20 74 69 | 6d 65 2c 20 73 6f 20 69 | some ti|me, so i|
|00000c00| 66 20 79 6f 75 72 20 70 | 72 6f 67 72 61 6d 20 64 |f your p|rogram d|
|00000c10| 6f 65 73 20 6e 6f 74 20 | 63 61 72 65 20 77 68 61 |oes not |care wha|
|00000c20| 74 20 68 61 70 70 65 6e | 73 20 74 6f 0a 74 68 65 |t happen|s to.the|
|00000c30| 20 77 69 6e 64 6f 77 20 | 63 6f 6e 66 69 67 75 72 | window |configur|
|00000c40| 61 74 69 6f 6e 73 2c 20 | 69 74 20 69 73 20 62 65 |ations, |it is be|
|00000c50| 74 74 65 72 20 74 6f 20 | 73 65 74 20 74 68 69 73 |tter to |set this|
|00000c60| 20 76 61 72 69 61 62 6c | 65 20 74 6f 20 6e 69 6c | variabl|e to nil|
|00000c70| 2e 0a 0a 49 66 20 74 68 | 65 20 76 61 6c 75 65 20 |...If th|e value |
|00000c80| 69 73 20 61 20 6c 69 73 | 74 2c 20 6f 6e 6c 79 20 |is a lis|t, only |
|00000c90| 74 68 65 20 6c 69 73 74 | 65 64 20 77 69 6e 64 6f |the list|ed windo|
|00000ca0| 77 73 20 61 72 65 20 73 | 61 76 65 64 20 61 6e 64 |ws are s|aved and|
|00000cb0| 0a 72 65 73 74 6f 72 65 | 64 2e 20 20 0a 0a 60 65 |.restore|d. ..`e|
|00000cc0| 64 65 62 75 67 2d 74 6f | 67 67 6c 65 2d 73 61 76 |debug-to|ggle-sav|
|00000cd0| 65 2d 77 69 6e 64 6f 77 | 73 27 20 6d 61 79 20 62 |e-window|s' may b|
|00000ce0| 65 20 75 73 65 64 20 74 | 6f 20 63 68 61 6e 67 65 |e used t|o change|
|00000cf0| 20 74 68 69 73 20 76 61 | 72 69 61 62 6c 65 2e 22 | this va|riable."|
|00000d00| 29 0a 28 64 65 66 76 61 | 72 20 65 64 65 62 75 67 |).(defva|r edebug|
|00000d10| 2d 73 61 76 65 2d 64 69 | 73 70 6c 61 79 65 64 2d |-save-di|splayed-|
|00000d20| 62 75 66 66 65 72 2d 70 | 6f 69 6e 74 73 20 6e 69 |buffer-p|oints ni|
|00000d30| 6c 20 22 5c 0a 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |l "\.*If| non-nil|
|00000d40| 2c 20 73 61 76 65 20 61 | 6e 64 20 72 65 73 74 6f |, save a|nd resto|
|00000d50| 72 65 20 70 6f 69 6e 74 | 20 69 6e 20 61 6c 6c 20 |re point| in all |
|00000d60| 64 69 73 70 6c 61 79 65 | 64 20 62 75 66 66 65 72 |displaye|d buffer|
|00000d70| 73 2e 0a 0a 53 61 76 69 | 6e 67 20 61 6e 64 20 72 |s...Savi|ng and r|
|00000d80| 65 73 74 6f 72 69 6e 67 | 20 70 6f 69 6e 74 20 69 |estoring| point i|
|00000d90| 6e 20 6f 74 68 65 72 20 | 62 75 66 66 65 72 73 20 |n other |buffers |
|00000da0| 69 73 20 6e 65 63 65 73 | 73 61 72 79 20 69 66 20 |is neces|sary if |
|00000db0| 79 6f 75 20 61 72 65 0a | 64 65 62 75 67 67 69 6e |you are.|debuggin|
|00000dc0| 67 20 63 6f 64 65 20 74 | 68 61 74 20 63 68 61 6e |g code t|hat chan|
|00000dd0| 67 65 73 20 74 68 65 20 | 70 6f 69 6e 74 20 6f 66 |ges the |point of|
|00000de0| 20 61 20 62 75 66 66 65 | 72 20 77 68 69 63 68 20 | a buffe|r which |
|00000df0| 69 73 20 64 69 73 70 6c | 61 79 65 64 0a 69 6e 20 |is displ|ayed.in |
|00000e00| 61 20 6e 6f 6e 2d 73 65 | 6c 65 63 74 65 64 20 77 |a non-se|lected w|
|00000e10| 69 6e 64 6f 77 2e 20 20 | 49 66 20 45 64 65 62 75 |indow. |If Edebu|
|00000e20| 67 20 6f 72 20 74 68 65 | 20 75 73 65 72 20 74 68 |g or the| user th|
|00000e30| 65 6e 20 73 65 6c 65 63 | 74 73 20 74 68 65 0a 77 |en selec|ts the.w|
|00000e40| 69 6e 64 6f 77 2c 20 74 | 68 65 20 62 75 66 66 65 |indow, t|he buffe|
|00000e50| 72 27 73 20 70 6f 69 6e | 74 20 77 69 6c 6c 20 62 |r's poin|t will b|
|00000e60| 65 20 63 68 61 6e 67 65 | 64 20 74 6f 20 74 68 65 |e change|d to the|
|00000e70| 20 77 69 6e 64 6f 77 27 | 73 20 70 6f 69 6e 74 2e | window'|s point.|
|00000e80| 0a 0a 53 61 76 69 6e 67 | 20 61 6e 64 20 72 65 73 |..Saving| and res|
|00000e90| 74 6f 72 69 6e 67 20 70 | 6f 69 6e 74 20 69 6e 20 |toring p|oint in |
|00000ea0| 61 6c 6c 20 62 75 66 66 | 65 72 73 20 69 73 20 65 |all buff|ers is e|
|00000eb0| 78 70 65 6e 73 69 76 65 | 2c 20 73 69 6e 63 65 20 |xpensive|, since |
|00000ec0| 69 74 0a 72 65 71 75 69 | 72 65 73 20 73 65 6c 65 |it.requi|res sele|
|00000ed0| 63 74 69 6e 67 20 65 61 | 63 68 20 77 69 6e 64 6f |cting ea|ch windo|
|00000ee0| 77 20 74 77 69 63 65 2c | 20 73 6f 20 65 6e 61 62 |w twice,| so enab|
|00000ef0| 6c 65 20 74 68 69 73 20 | 6f 6e 6c 79 20 69 66 20 |le this |only if |
|00000f00| 79 6f 75 20 6e 65 65 64 | 0a 69 74 2e 22 29 0a 28 |you need|.it.").(|
|00000f10| 64 65 66 76 61 72 20 65 | 64 65 62 75 67 2d 69 6e |defvar e|debug-in|
|00000f20| 69 74 69 61 6c 2d 6d 6f | 64 65 20 28 71 75 6f 74 |itial-mo|de (quot|
|00000f30| 65 20 73 74 65 70 29 20 | 22 5c 0a 2a 49 6e 69 74 |e step) |"\.*Init|
|00000f40| 69 61 6c 20 65 78 65 63 | 75 74 69 6f 6e 20 6d 6f |ial exec|ution mo|
|00000f50| 64 65 20 66 6f 72 20 45 | 64 65 62 75 67 2c 20 69 |de for E|debug, i|
|00000f60| 66 20 6e 6f 6e 2d 6e 69 | 6c 2e 20 20 49 66 20 74 |f non-ni|l. If t|
|00000f70| 68 69 73 20 76 61 72 69 | 61 62 6c 65 0a 69 73 20 |his vari|able.is |
|00000f80| 6e 6f 6e 2d 40 63 6f 64 | 65 7b 6e 69 6c 7d 2c 20 |non-@cod|e{nil}, |
|00000f90| 69 74 20 73 70 65 63 69 | 66 69 65 73 20 74 68 65 |it speci|fies the|
|00000fa0| 20 69 6e 69 74 69 61 6c | 20 65 78 65 63 75 74 69 | initial| executi|
|00000fb0| 6f 6e 20 6d 6f 64 65 20 | 66 6f 72 20 45 64 65 62 |on mode |for Edeb|
|00000fc0| 75 67 0a 77 68 65 6e 20 | 69 74 20 69 73 20 66 69 |ug.when |it is fi|
|00000fd0| 72 73 74 20 61 63 74 69 | 76 61 74 65 64 2e 20 20 |rst acti|vated. |
|00000fe0| 50 6f 73 73 69 62 6c 65 | 20 76 61 6c 75 65 73 20 |Possible| values |
|00000ff0| 61 72 65 20 73 74 65 70 | 2c 20 6e 65 78 74 2c 20 |are step|, next, |
|00001000| 67 6f 2c 0a 47 6f 2d 6e | 6f 6e 73 74 6f 70 2c 20 |go,.Go-n|onstop, |
|00001010| 74 72 61 63 65 2c 20 54 | 72 61 63 65 2d 66 61 73 |trace, T|race-fas|
|00001020| 74 2c 20 63 6f 6e 74 69 | 6e 75 65 2c 20 61 6e 64 |t, conti|nue, and|
|00001030| 20 43 6f 6e 74 69 6e 75 | 65 2d 66 61 73 74 2e 22 | Continu|e-fast."|
|00001040| 29 0a 28 64 65 66 76 61 | 72 20 65 64 65 62 75 67 |).(defva|r edebug|
|00001050| 2d 74 72 61 63 65 20 6e | 69 6c 20 22 5c 0a 2a 4e |-trace n|il "\.*N|
|00001060| 6f 6e 2d 6e 69 6c 20 6d | 65 61 6e 73 20 64 69 73 |on-nil m|eans dis|
|00001070| 70 6c 61 79 20 61 20 74 | 72 61 63 65 20 6f 66 20 |play a t|race of |
|00001080| 66 75 6e 63 74 69 6f 6e | 20 65 6e 74 72 79 20 61 |function| entry a|
|00001090| 6e 64 20 65 78 69 74 2e | 0a 54 72 61 63 69 6e 67 |nd exit.|.Tracing|
|000010a0| 20 6f 75 74 70 75 74 20 | 69 73 20 64 69 73 70 6c | output |is displ|
|000010b0| 61 79 65 64 20 69 6e 20 | 61 20 62 75 66 66 65 72 |ayed in |a buffer|
|000010c0| 20 6e 61 6d 65 64 20 60 | 2a 65 64 65 62 75 67 2d | named `|*edebug-|
|000010d0| 74 72 61 63 65 2a 27 2c | 20 6f 6e 65 0a 66 75 6e |trace*',| one.fun|
|000010e0| 63 74 69 6f 6e 20 65 6e | 74 72 79 20 6f 72 20 65 |ction en|try or e|
|000010f0| 78 69 74 20 70 65 72 20 | 6c 69 6e 65 2c 20 69 6e |xit per |line, in|
|00001100| 64 65 6e 74 65 64 20 62 | 79 20 74 68 65 20 72 65 |dented b|y the re|
|00001110| 63 75 72 73 69 6f 6e 20 | 6c 65 76 65 6c 2e 20 20 |cursion |level. |
|00001120| 0a 0a 59 6f 75 20 63 61 | 6e 20 63 75 73 74 6f 6d |..You ca|n custom|
|00001130| 69 7a 65 20 62 79 20 72 | 65 70 6c 61 63 69 6e 67 |ize by r|eplacing|
|00001140| 20 66 75 6e 63 74 69 6f | 6e 73 20 60 65 64 65 62 | functio|ns `edeb|
|00001150| 75 67 2d 70 72 69 6e 74 | 2d 74 72 61 63 65 2d 62 |ug-print|-trace-b|
|00001160| 65 66 6f 72 65 27 0a 61 | 6e 64 20 60 65 64 65 62 |efore'.a|nd `edeb|
|00001170| 75 67 2d 70 72 69 6e 74 | 2d 74 72 61 63 65 2d 61 |ug-print|-trace-a|
|00001180| 66 74 65 72 27 2e 22 29 | 0a 28 64 65 66 76 61 72 |fter'.")|.(defvar|
|00001190| 20 65 64 65 62 75 67 2d | 74 65 73 74 2d 63 6f 76 | edebug-|test-cov|
|000011a0| 65 72 61 67 65 20 6e 69 | 6c 20 22 5c 0a 2a 49 66 |erage ni|l "\.*If|
|000011b0| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 45 64 65 62 75 67 | non-nil|, Edebug|
|000011c0| 20 74 65 73 74 73 20 63 | 6f 76 65 72 61 67 65 20 | tests c|overage |
|000011d0| 6f 66 20 61 6c 6c 20 65 | 78 70 72 65 73 73 69 6f |of all e|xpressio|
|000011e0| 6e 73 20 64 65 62 75 67 | 67 65 64 2e 0a 54 68 69 |ns debug|ged..Thi|
|000011f0| 73 20 69 73 20 64 6f 6e | 65 20 62 79 20 63 6f 6d |s is don|e by com|
|00001200| 70 61 72 69 6e 67 20 74 | 68 65 20 72 65 73 75 6c |paring t|he resul|
|00001210| 74 20 6f 66 20 65 61 63 | 68 20 65 78 70 72 65 73 |t of eac|h expres|
|00001220| 73 69 6f 6e 0a 77 69 74 | 68 20 74 68 65 20 70 72 |sion.wit|h the pr|
|00001230| 65 76 69 6f 75 73 20 72 | 65 73 75 6c 74 2e 20 43 |evious r|esult. C|
|00001240| 6f 76 65 72 61 67 65 20 | 69 73 20 63 6f 6e 73 69 |overage |is consi|
|00001250| 64 65 72 65 64 20 4f 4b | 20 69 66 20 74 77 6f 20 |dered OK| if two |
|00001260| 64 69 66 66 65 72 65 6e | 74 0a 72 65 73 75 6c 74 |differen|t.result|
|00001270| 73 20 61 72 65 20 66 6f | 75 6e 64 2e 0a 0a 55 73 |s are fo|und...Us|
|00001280| 65 20 60 65 64 65 62 75 | 67 2d 64 69 73 70 6c 61 |e `edebu|g-displa|
|00001290| 79 2d 66 72 65 71 2d 63 | 6f 75 6e 74 27 20 74 6f |y-freq-c|ount' to|
|000012a0| 20 64 69 73 70 6c 61 79 | 20 74 68 65 20 66 72 65 | display| the fre|
|000012b0| 71 75 65 6e 63 79 20 63 | 6f 75 6e 74 20 61 6e 64 |quency c|ount and|
|000012c0| 0a 63 6f 76 65 72 61 67 | 65 20 69 6e 66 6f 72 6d |.coverag|e inform|
|000012d0| 61 74 69 6f 6e 20 66 6f | 72 20 61 20 64 65 66 69 |ation fo|r a defi|
|000012e0| 6e 69 74 69 6f 6e 2e 22 | 29 0a 28 64 65 66 76 61 |nition."|).(defva|
|000012f0| 72 20 65 64 65 62 75 67 | 2d 63 6f 6e 74 69 6e 75 |r edebug|-continu|
|00001300| 65 2d 6b 62 64 2d 6d 61 | 63 72 6f 20 6e 69 6c 20 |e-kbd-ma|cro nil |
|00001310| 22 5c 0a 2a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |"\.*If n|on-nil, |
|00001320| 63 6f 6e 74 69 6e 75 65 | 20 64 65 66 69 6e 69 6e |continue| definin|
|00001330| 67 20 6f 72 20 65 78 65 | 63 75 74 69 6e 67 20 61 |g or exe|cuting a|
|00001340| 6e 79 20 6b 65 79 62 6f | 61 72 64 20 6d 61 63 72 |ny keybo|ard macr|
|00001350| 6f 2e 0a 55 73 65 20 74 | 68 69 73 20 77 69 74 68 |o..Use t|his with|
|00001360| 20 63 61 75 74 69 6f 6e | 20 73 69 6e 63 65 20 69 | caution| since i|
|00001370| 74 20 69 73 20 6e 6f 74 | 20 64 65 62 75 67 67 65 |t is not| debugge|
|00001380| 64 2e 22 29 0a 28 64 65 | 66 76 61 72 20 65 64 65 |d.").(de|fvar ede|
|00001390| 62 75 67 2d 70 72 69 6e | 74 2d 6c 65 6e 67 74 68 |bug-prin|t-length|
|000013a0| 20 35 30 20 22 5c 0a 2a | 44 65 66 61 75 6c 74 20 | 50 "\.*|Default |
|000013b0| 76 61 6c 75 65 20 6f 66 | 20 70 72 69 6e 74 2d 6c |value of| print-l|
|000013c0| 65 6e 67 74 68 20 74 6f | 20 75 73 65 20 77 68 69 |ength to| use whi|
|000013d0| 6c 65 20 70 72 69 6e 74 | 69 6e 67 20 72 65 73 75 |le print|ing resu|
|000013e0| 6c 74 73 20 69 6e 20 65 | 64 65 62 75 67 2e 22 29 |lts in e|debug.")|
|000013f0| 0a 28 64 65 66 76 61 72 | 20 65 64 65 62 75 67 2d |.(defvar| edebug-|
|00001400| 70 72 69 6e 74 2d 6c 65 | 76 65 6c 20 35 30 20 22 |print-le|vel 50 "|
|00001410| 5c 0a 2a 44 65 66 61 75 | 6c 74 20 76 61 6c 75 65 |\.*Defau|lt value|
|00001420| 20 6f 66 20 70 72 69 6e | 74 2d 6c 65 76 65 6c 20 | of prin|t-level |
|00001430| 74 6f 20 75 73 65 20 77 | 68 69 6c 65 20 70 72 69 |to use w|hile pri|
|00001440| 6e 74 69 6e 67 20 72 65 | 73 75 6c 74 73 20 69 6e |nting re|sults in|
|00001450| 20 65 64 65 62 75 67 2e | 22 29 0a 28 64 65 66 76 | edebug.|").(defv|
|00001460| 61 72 20 65 64 65 62 75 | 67 2d 70 72 69 6e 74 2d |ar edebu|g-print-|
|00001470| 63 69 72 63 6c 65 20 74 | 20 22 5c 0a 2a 44 65 66 |circle t| "\.*Def|
|00001480| 61 75 6c 74 20 76 61 6c | 75 65 20 6f 66 20 70 72 |ault val|ue of pr|
|00001490| 69 6e 74 2d 63 69 72 63 | 6c 65 20 74 6f 20 75 73 |int-circ|le to us|
|000014a0| 65 20 77 68 69 6c 65 20 | 70 72 69 6e 74 69 6e 67 |e while |printing|
|000014b0| 20 72 65 73 75 6c 74 73 | 20 69 6e 20 65 64 65 62 | results| in edeb|
|000014c0| 75 67 2e 22 29 0a 28 64 | 65 66 76 61 72 20 65 64 |ug.").(d|efvar ed|
|000014d0| 65 62 75 67 2d 75 6e 77 | 72 61 70 2d 72 65 73 75 |ebug-unw|rap-resu|
|000014e0| 6c 74 73 20 6e 69 6c 20 | 22 5c 0a 2a 4e 6f 6e 2d |lts nil |"\.*Non-|
|000014f0| 6e 69 6c 20 69 66 20 45 | 64 65 62 75 67 20 73 68 |nil if E|debug sh|
|00001500| 6f 75 6c 64 20 75 6e 77 | 72 61 70 20 72 65 73 75 |ould unw|rap resu|
|00001510| 6c 74 73 20 6f 66 20 65 | 78 70 72 65 73 73 69 6f |lts of e|xpressio|
|00001520| 6e 73 2e 0a 54 68 69 73 | 20 69 73 20 75 73 65 66 |ns..This| is usef|
|00001530| 75 6c 20 77 68 65 6e 20 | 64 65 62 75 67 67 69 6e |ul when |debuggin|
|00001540| 67 20 6d 61 63 72 6f 73 | 20 77 68 65 72 65 20 74 |g macros| where t|
|00001550| 68 65 20 72 65 73 75 6c | 74 73 20 6f 66 20 65 78 |he resul|ts of ex|
|00001560| 70 72 65 73 73 69 6f 6e | 73 0a 61 72 65 20 69 6e |pression|s.are in|
|00001570| 73 74 72 75 6d 65 6e 74 | 65 64 20 65 78 70 72 65 |strument|ed expre|
|00001580| 73 73 69 6f 6e 73 2e 20 | 20 42 75 74 20 64 6f 6e |ssions. | But don|
|00001590| 27 74 20 64 6f 20 74 68 | 69 73 20 77 68 65 6e 20 |'t do th|is when |
|000015a0| 72 65 73 75 6c 74 73 20 | 6d 69 67 68 74 20 62 65 |results |might be|
|000015b0| 0a 63 69 72 63 75 6c 61 | 72 20 6f 72 20 61 6e 20 |.circula|r or an |
|000015c0| 69 6e 66 69 6e 69 74 65 | 20 6c 6f 6f 70 20 77 69 |infinite| loop wi|
|000015d0| 6c 6c 20 72 65 73 75 6c | 74 2e 22 29 0a 28 64 65 |ll resul|t.").(de|
|000015e0| 66 76 61 72 20 65 64 65 | 62 75 67 2d 6f 6e 2d 65 |fvar ede|bug-on-e|
|000015f0| 72 72 6f 72 20 74 20 22 | 5c 0a 2a 56 61 6c 75 65 |rror t "|\.*Value|
|00001600| 20 62 6f 75 6e 64 20 74 | 6f 20 60 64 65 62 75 67 | bound t|o `debug|
|00001610| 2d 6f 6e 2d 65 72 72 6f | 72 27 20 77 68 69 6c 65 |-on-erro|r' while|
|00001620| 20 45 64 65 62 75 67 20 | 69 73 20 61 63 74 69 76 | Edebug |is activ|
|00001630| 65 2e 0a 0a 49 66 20 60 | 64 65 62 75 67 2d 6f 6e |e...If `|debug-on|
|00001640| 2d 65 72 72 6f 72 27 20 | 69 73 20 6e 6f 6e 2d 6e |-error' |is non-n|
|00001650| 69 6c 2c 20 74 68 61 74 | 20 76 61 6c 75 65 20 69 |il, that| value i|
|00001660| 73 20 73 74 69 6c 6c 20 | 75 73 65 64 2e 0a 0a 49 |s still |used...I|
|00001670| 66 20 74 68 65 20 76 61 | 6c 75 65 20 69 73 20 61 |f the va|lue is a|
|00001680| 20 6c 69 73 74 20 6f 66 | 20 73 69 67 6e 61 6c 20 | list of| signal |
|00001690| 6e 61 6d 65 73 2c 20 45 | 64 65 62 75 67 20 77 69 |names, E|debug wi|
|000016a0| 6c 6c 20 73 74 6f 70 20 | 77 68 65 6e 20 61 6e 79 |ll stop |when any|
|000016b0| 20 6f 66 0a 74 68 65 73 | 65 20 65 72 72 6f 72 73 | of.thes|e errors|
|000016c0| 20 61 72 65 20 73 69 67 | 6e 61 6c 65 64 20 66 72 | are sig|naled fr|
|000016d0| 6f 6d 20 4c 69 73 70 20 | 63 6f 64 65 20 77 68 65 |om Lisp |code whe|
|000016e0| 74 68 65 72 20 6f 72 20 | 6e 6f 74 20 74 68 65 20 |ther or |not the |
|000016f0| 73 69 67 6e 61 6c 20 69 | 73 0a 68 61 6e 64 6c 65 |signal i|s.handle|
|00001700| 64 20 62 79 20 61 20 60 | 63 6f 6e 64 69 74 69 6f |d by a `|conditio|
|00001710| 6e 2d 63 61 73 65 27 2e | 20 20 54 68 69 73 20 6f |n-case'.| This o|
|00001720| 70 74 69 6f 6e 20 69 73 | 20 75 73 65 66 75 6c 20 |ption is| useful |
|00001730| 66 6f 72 20 64 65 62 75 | 67 67 69 6e 67 0a 73 69 |for debu|gging.si|
|00001740| 67 6e 61 6c 73 20 74 68 | 61 74 20 2a 61 72 65 2a |gnals th|at *are*|
|00001750| 20 68 61 6e 64 6c 65 64 | 20 73 69 6e 63 65 20 74 | handled| since t|
|00001760| 68 65 79 20 77 6f 75 6c | 64 20 6f 74 68 65 72 77 |hey woul|d otherw|
|00001770| 69 73 65 20 62 65 20 6d | 69 73 73 65 64 2e 0a 41 |ise be m|issed..A|
|00001780| 66 74 65 72 20 65 78 65 | 63 75 74 69 6f 6e 20 69 |fter exe|cution i|
|00001790| 73 20 72 65 73 75 6d 65 | 64 2c 20 74 68 65 20 65 |s resume|d, the e|
|000017a0| 72 72 6f 72 20 69 73 20 | 73 69 67 6e 61 6c 65 64 |rror is |signaled|
|000017b0| 20 61 67 61 69 6e 2e 22 | 29 0a 28 64 65 66 76 61 | again."|).(defva|
|000017c0| 72 20 65 64 65 62 75 67 | 2d 6f 6e 2d 71 75 69 74 |r edebug|-on-quit|
|000017d0| 20 74 20 22 5c 0a 2a 56 | 61 6c 75 65 20 62 6f 75 | t "\.*V|alue bou|
|000017e0| 6e 64 20 74 6f 20 60 64 | 65 62 75 67 2d 6f 6e 2d |nd to `d|ebug-on-|
|000017f0| 71 75 69 74 27 20 77 68 | 69 6c 65 20 45 64 65 62 |quit' wh|ile Edeb|
|00001800| 75 67 20 69 73 20 61 63 | 74 69 76 65 2e 22 29 0a |ug is ac|tive.").|
|00001810| 28 64 65 66 76 61 72 20 | 65 64 65 62 75 67 2d 67 |(defvar |edebug-g|
|00001820| 6c 6f 62 61 6c 2d 62 72 | 65 61 6b 2d 63 6f 6e 64 |lobal-br|eak-cond|
|00001830| 69 74 69 6f 6e 20 6e 69 | 6c 20 22 5c 0a 2a 49 66 |ition ni|l "\.*If|
|00001840| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 61 6e 20 65 78 70 | non-nil|, an exp|
|00001850| 72 65 73 73 69 6f 6e 20 | 74 6f 20 74 65 73 74 20 |ression |to test |
|00001860| 66 6f 72 20 61 74 20 65 | 76 65 72 79 20 73 74 6f |for at e|very sto|
|00001870| 70 20 70 6f 69 6e 74 2e | 0a 49 66 20 74 68 65 20 |p point.|.If the |
|00001880| 72 65 73 75 6c 74 20 69 | 73 20 6e 6f 6e 2d 6e 69 |result i|s non-ni|
|00001890| 6c 2c 20 74 68 65 6e 20 | 62 72 65 61 6b 2e 20 20 |l, then |break. |
|000018a0| 45 72 72 6f 72 73 20 61 | 72 65 20 69 67 6e 6f 72 |Errors a|re ignor|
|000018b0| 65 64 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |ed.").(d|efalias |
|000018c0| 27 64 65 66 2d 65 64 65 | 62 75 67 2d 73 70 65 63 |'def-ede|bug-spec|
|000018d0| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 73 79 | '(macro| . #[(sy|
|000018e0| 6d 62 6f 6c 20 73 70 65 | 63 29 20 22 c0 c1 5c 6e |mbol spe|c) "..\n|
|000018f0| 44 c3 c1 5c 66 44 46 87 | 22 20 5b 70 75 74 20 71 |D..\fDF.|" [put q|
|00001900| 75 6f 74 65 20 73 79 6d | 62 6f 6c 20 28 71 75 6f |uote sym|bol (quo|
|00001910| 74 65 20 65 64 65 62 75 | 67 2d 66 6f 72 6d 2d 73 |te edebu|g-form-s|
|00001920| 70 65 63 29 20 73 70 65 | 63 5d 20 35 20 22 5c 0a |pec) spe|c] 5 "\.|
|00001930| 53 65 74 20 74 68 65 20 | 65 64 65 62 75 67 2d 66 |Set the |edebug-f|
|00001940| 6f 72 6d 2d 73 70 65 63 | 20 70 72 6f 70 65 72 74 |orm-spec| propert|
|00001950| 79 20 6f 66 20 53 59 4d | 42 4f 4c 20 61 63 63 6f |y of SYM|BOL acco|
|00001960| 72 64 69 6e 67 20 74 6f | 20 53 50 45 43 2e 0a 42 |rding to| SPEC..B|
|00001970| 6f 74 68 20 53 59 4d 42 | 4f 4c 20 61 6e 64 20 53 |oth SYMB|OL and S|
|00001980| 50 45 43 20 61 72 65 20 | 75 6e 65 76 61 6c 75 61 |PEC are |unevalua|
|00001990| 74 65 64 2e 20 54 68 65 | 20 53 50 45 43 20 63 61 |ted. The| SPEC ca|
|000019a0| 6e 20 62 65 20 30 2c 20 | 74 2c 20 61 20 73 79 6d |n be 0, |t, a sym|
|000019b0| 62 6f 6c 0a 28 6e 61 6d | 69 6e 67 20 61 20 66 75 |bol.(nam|ing a fu|
|000019c0| 6e 63 74 69 6f 6e 29 2c | 20 6f 72 20 61 20 6c 69 |nction),| or a li|
|000019d0| 73 74 2e 22 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |st."])).|(defalia|
|000019e0| 73 20 27 64 65 66 2d 65 | 64 65 62 75 67 2d 66 6f |s 'def-e|debug-fo|
|000019f0| 72 6d 2d 73 70 65 63 20 | 27 28 6d 61 63 72 6f 20 |rm-spec |'(macro |
|00001a00| 2e 20 23 5b 28 73 79 6d | 62 6f 6c 20 73 70 65 63 |. #[(sym|bol spec|
|00001a10| 2d 66 6f 72 6d 29 20 22 | c0 c1 21 88 c2 c3 c4 c5 |-form) "|..!.....|
|00001a20| 23 87 22 20 5b 6d 65 73 | 73 61 67 65 20 22 4f 62 |#." [mes|sage "Ob|
|00001a30| 73 6f 6c 65 74 65 3a 20 | 75 73 65 20 64 65 66 2d |solete: |use def-|
|00001a40| 65 64 65 62 75 67 2d 73 | 70 65 63 20 69 6e 73 74 |edebug-s|pec inst|
|00001a50| 65 61 64 2e 22 20 70 75 | 74 20 73 79 6d 62 6f 6c |ead." pu|t symbol|
|00001a60| 20 65 64 65 62 75 67 2d | 66 6f 72 6d 2d 73 70 65 | edebug-|form-spe|
|00001a70| 63 20 28 65 76 61 6c 20 | 73 70 65 63 2d 66 6f 72 |c (eval |spec-for|
|00001a80| 6d 29 5d 20 34 20 22 5c | 0a 46 6f 72 20 63 6f 6d |m)] 4 "\|.For com|
|00001a90| 70 61 74 69 62 69 6c 69 | 74 79 20 77 69 74 68 20 |patibili|ty with |
|00001aa0| 6f 6c 64 20 76 65 72 73 | 69 6f 6e 2e 20 20 55 73 |old vers|ion. Us|
|00001ab0| 65 20 64 65 66 2d 65 64 | 65 62 75 67 2d 73 70 65 |e def-ed|ebug-spe|
|00001ac0| 63 20 69 6e 73 74 65 61 | 64 2e 22 5d 29 29 0a 28 |c instea|d."])).(|
|00001ad0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|00001ae0| 88 c3 c4 21 84 1e 00 c5 | c6 21 84 14 00 c7 16 06 |...!....|.!......|
|00001af0| c8 c6 c9 ca 23 88 c4 cb | 4d 88 c0 87 22 20 5b 64 |....#...|M..." [d|
|00001b00| 65 66 61 6c 69 61 73 20 | 67 65 74 2d 65 64 65 62 |efalias |get-edeb|
|00001b10| 75 67 2d 73 70 65 63 20 | 23 5b 28 73 79 6d 62 6f |ug-spec |#[(symbo|
|00001b20| 6c 29 20 22 08 c1 4e c2 | 1b 89 19 39 83 19 00 09 |l) "..N.|...9....|
|00001b30| c1 4e 89 13 83 19 00 0b | 89 11 82 07 00 09 2a 87 |.N......|......*.|
|00001b40| 22 20 5b 73 79 6d 62 6f | 6c 20 65 64 65 62 75 67 |" [symbo|l edebug|
|00001b50| 2d 66 6f 72 6d 2d 73 70 | 65 63 20 6e 69 6c 20 69 |-form-sp|ec nil i|
|00001b60| 6e 64 69 72 65 63 74 5d | 20 33 5d 20 66 62 6f 75 |ndirect]| 3] fbou|
|00001b70| 6e 64 70 20 67 65 6e 73 | 79 6d 20 62 6f 75 6e 64 |ndp gens|ym bound|
|00001b80| 70 20 2a 67 65 6e 73 79 | 6d 2d 69 6e 64 65 78 2a |p *gensy|m-index*|
|00001b90| 20 30 20 70 75 74 20 76 | 61 72 69 61 62 6c 65 2d | 0 put v|ariable-|
|00001ba0| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 22 49 |document|ation "I|
|00001bb0| 6e 74 65 67 65 72 20 75 | 73 65 64 20 62 79 20 67 |nteger u|sed by g|
|00001bc0| 65 6e 73 79 6d 20 74 6f | 20 70 72 6f 64 75 63 65 |ensym to| produce|
|00001bd0| 20 6e 65 77 20 6e 61 6d | 65 73 2e 22 20 23 5b 28 | new nam|es." #[(|
|00001be0| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 72 65 66 69 78 |&optiona|l prefix|
|00001bf0| 29 20 22 08 84 06 00 c1 | 10 c2 c3 1c 1d 0d 84 27 |) ".....|.......'|
|00001c00| 00 08 0e 06 50 14 0e 06 | c7 5c 5c 16 06 c8 5c 66 |....P...|.\\...\f|
|00001c10| 21 84 5c 6e 00 c9 5c 66 | 21 89 15 83 0e 00 0d 2a |!.\n..\f|!......*|
|00001c20| 87 22 20 5b 70 72 65 66 | 69 78 20 22 47 22 20 6e |." [pref|ix "G" n|
|00001c30| 69 6c 20 22 22 20 6e 65 | 77 6e 61 6d 65 20 6e 65 |il "" ne|wname ne|
|00001c40| 77 73 79 6d 62 6f 6c 20 | 2a 67 65 6e 73 79 6d 2d |wsymbol |*gensym-|
|00001c50| 69 6e 64 65 78 2a 20 31 | 20 69 6e 74 65 72 6e 2d |index* 1| intern-|
|00001c60| 73 6f 66 74 20 6d 61 6b | 65 2d 73 79 6d 62 6f 6c |soft mak|e-symbol|
|00001c70| 5d 20 33 20 22 47 65 6e | 65 72 61 74 65 20 61 20 |] 3 "Gen|erate a |
|00001c80| 66 72 65 73 68 20 75 6e | 69 6e 74 65 72 6e 65 64 |fresh un|interned|
|00001c90| 20 73 79 6d 62 6f 6c 2e | 5c 6e 54 68 65 72 65 20 | symbol.|\nThere |
|00001ca0| 69 73 20 61 6e 20 20 6f | 70 74 69 6f 6e 61 6c 20 |is an o|ptional |
|00001cb0| 61 72 67 75 6d 65 6e 74 | 2c 20 50 52 45 46 49 58 |argument|, PREFIX|
|00001cc0| 2e 20 20 50 52 45 46 49 | 58 20 69 73 20 74 68 65 |. PREFI|X is the|
|00001cd0| 5c 6e 73 74 72 69 6e 67 | 20 74 68 61 74 20 62 65 |\nstring| that be|
|00001ce0| 67 69 6e 73 20 74 68 65 | 20 6e 65 77 20 6e 61 6d |gins the| new nam|
|00001cf0| 65 2e 20 4d 6f 73 74 20 | 70 65 6f 70 6c 65 20 74 |e. Most |people t|
|00001d00| 61 6b 65 20 6a 75 73 74 | 20 74 68 65 20 64 65 66 |ake just| the def|
|00001d10| 61 75 6c 74 2c 5c 6e 65 | 78 63 65 70 74 20 77 68 |ault,\ne|xcept wh|
|00001d20| 65 6e 20 64 65 62 75 67 | 67 69 6e 67 20 6e 65 65 |en debug|ging nee|
|00001d30| 64 73 20 73 75 67 67 65 | 73 74 20 6f 74 68 65 72 |ds sugge|st other|
|00001d40| 77 69 73 65 2e 22 5d 5d | 20 34 29 0a 28 64 65 66 |wise."]]| 4).(def|
|00001d50| 61 6c 69 61 73 20 27 6c | 61 6d 62 64 61 2d 6c 69 |alias 'l|ambda-li|
|00001d60| 73 74 2d 6b 65 79 77 6f | 72 64 70 20 23 5b 28 6f |st-keywo|rdp #[(o|
|00001d70| 62 6a 65 63 74 29 20 22 | 08 39 85 5c 66 00 c1 08 |bject) "|.9.\f...|
|00001d80| 21 c2 48 c3 55 87 22 20 | 5b 6f 62 6a 65 63 74 20 |!.H.U." |[object |
|00001d90| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 30 20 33 38 |symbol-n|ame 0 38|
|00001da0| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 20 |] 2 "\.R|eturn t |
|00001db0| 69 66 20 4f 42 4a 45 43 | 54 20 69 73 20 61 20 6c |if OBJEC|T is a l|
|00001dc0| 61 6d 62 64 61 20 6c 69 | 73 74 20 6b 65 79 77 6f |ambda li|st keywo|
|00001dd0| 72 64 2e 0a 41 20 6c 61 | 6d 62 64 61 20 6c 69 73 |rd..A la|mbda lis|
|00001de0| 74 20 6b 65 79 77 6f 72 | 64 20 69 73 20 61 20 73 |t keywor|d is a s|
|00001df0| 79 6d 62 6f 6c 20 74 68 | 61 74 20 73 74 61 72 74 |ymbol th|at start|
|00001e00| 73 20 77 69 74 68 20 22 | 5d 29 0a 28 64 65 66 61 |s with "|]).(defa|
|00001e10| 6c 69 61 73 20 28 71 75 | 6f 74 65 20 65 64 65 62 |lias (qu|ote edeb|
|00001e20| 75 67 2d 6c 61 73 74 2d | 73 65 78 70 29 20 23 5b |ug-last-|sexp) #[|
|00001e30| 6e 69 6c 20 22 c0 8a c1 | c2 21 88 60 29 60 7b 21 |nil "...|.!.`)`{!|
|00001e40| 40 87 22 20 5b 72 65 61 | 64 2d 66 72 6f 6d 2d 73 |@." [rea|d-from-s|
|00001e50| 74 72 69 6e 67 20 66 6f | 72 77 61 72 64 2d 73 65 |tring fo|rward-se|
|00001e60| 78 70 20 2d 31 5d 20 33 | 5d 29 0a 28 64 65 66 61 |xp -1] 3|]).(defa|
|00001e70| 6c 69 61 73 20 27 65 64 | 65 62 75 67 2d 77 69 6e |lias 'ed|ebug-win|
|00001e80| 64 6f 77 2d 6c 69 73 74 | 20 23 5b 6e 69 6c 20 22 |dow-list| #[nil "|
|00001e90| c0 20 89 19 43 1a c3 09 | 21 89 1c 09 3d 84 1c 00 |. ..C...|!...=...|
|00001ea0| 5c 66 5c 6e 42 12 c3 5c | 66 21 89 14 82 0b 00 5c |\f\nB..\|f!.....\|
|00001eb0| 6e 9f 2b 87 22 20 5b 73 | 65 6c 65 63 74 65 64 2d |n.+." [s|elected-|
|00001ec0| 77 69 6e 64 6f 77 20 66 | 69 72 73 74 2d 77 69 6e |window f|irst-win|
|00001ed0| 64 6f 77 20 77 69 6e 64 | 6f 77 2d 6c 69 73 74 20 |dow wind|ow-list |
|00001ee0| 6e 65 78 74 2d 77 69 6e | 64 6f 77 20 6e 65 78 74 |next-win|dow next|
|00001ef0| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 61 20 |] 3 "\.R|eturn a |
|00001f00| 6c 69 73 74 20 6f 66 20 | 77 69 6e 64 6f 77 73 2c |list of |windows,|
|00001f10| 20 69 6e 20 6f 72 64 65 | 72 20 6f 66 20 6e 65 78 | in orde|r of nex|
|00001f20| 74 2d 77 69 6e 64 6f 77 | 2e 22 5d 29 0a 28 64 65 |t-window|."]).(de|
|00001f30| 66 61 6c 69 61 73 20 27 | 65 64 65 62 75 67 2d 77 |falias '|edebug-w|
|00001f40| 69 6e 64 6f 77 2d 6c 69 | 76 65 2d 70 20 23 5b 28 |indow-li|ve-p #[(|
|00001f50| 77 69 6e 64 6f 77 29 20 | 22 c0 20 19 c2 09 c3 5c |window) |". ....\|
|00001f60| 22 89 1c 0d 3d 84 1d 00 | 5c 66 09 3d 84 1d 00 c2 |"...=...|\f.=....|
|00001f70| 5c 66 c3 5c 22 89 14 82 | 09 00 5c 66 0d 2a 3d 87 |\f.\"...|..\f.*=.|
|00001f80| 22 20 5b 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |" [selec|ted-wind|
|00001f90| 6f 77 20 66 69 72 73 74 | 2d 77 69 6e 64 6f 77 20 |ow first|-window |
|00001fa0| 6e 65 78 74 2d 77 69 6e | 64 6f 77 20 74 20 6e 65 |next-win|dow t ne|
|00001fb0| 78 74 20 77 69 6e 64 6f | 77 5d 20 34 20 22 5c 0a |xt windo|w] 4 "\.|
|00001fc0| 52 65 74 75 72 6e 20 6e | 6f 6e 2d 6e 69 6c 20 69 |Return n|on-nil i|
|00001fd0| 66 20 57 49 4e 44 4f 57 | 20 69 73 20 76 69 73 69 |f WINDOW| is visi|
|00001fe0| 62 6c 65 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ble."]).|(byte-co|
|00001ff0| 64 65 20 22 c0 c1 c2 5c | 22 88 c3 c1 c4 c5 23 87 |de "...\|".....#.|
|00002000| 22 20 5b 64 65 66 61 6c | 69 61 73 20 65 64 65 62 |" [defal|ias edeb|
|00002010| 75 67 2d 6c 6f 6f 6b 75 | 70 2d 66 75 6e 63 74 69 |ug-looku|p-functi|
|00002020| 6f 6e 20 23 5b 28 6f 62 | 6a 65 63 74 29 20 22 08 |on #[(ob|ject) ".|
|00002030| 39 83 12 00 c1 08 21 83 | 12 00 08 4b 89 10 82 01 |9.....!.|...K....|
|00002040| 00 08 87 22 20 5b 6f 62 | 6a 65 63 74 20 66 62 6f |..." [ob|ject fbo|
|00002050| 75 6e 64 70 5d 20 33 5d | 20 70 75 74 20 62 79 74 |undp] 3]| put byt|
|00002060| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 62 79 74 65 |e-optimi|zer byte|
|00002070| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00002080| 65 78 70 61 6e 64 5d 20 | 34 29 0a 28 64 65 66 61 |expand] |4).(defa|
|00002090| 6c 69 61 73 20 27 65 64 | 65 62 75 67 2d 6d 61 63 |lias 'ed|ebug-mac|
|000020a0| 72 6f 70 20 23 5b 28 6f | 62 6a 65 63 74 29 20 22 |rop #[(o|bject) "|
|000020b0| 08 89 18 39 83 14 00 c1 | 08 21 83 14 00 08 4b 89 |...9....|.!....K.|
|000020c0| 10 82 03 00 08 29 89 10 | 3c 85 2b 00 08 40 c2 3d |.....)..|<.+..@.=|
|000020d0| 85 2b 00 c3 08 41 21 85 | 2b 00 08 87 22 20 5b 6f |.+...A!.|+..." [o|
|000020e0| 62 6a 65 63 74 20 66 62 | 6f 75 6e 64 70 20 6d 61 |bject fb|oundp ma|
|000020f0| 63 72 6f 20 65 64 65 62 | 75 67 2d 66 75 6e 63 74 |cro edeb|ug-funct|
|00002100| 69 6f 6e 70 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |ionp] 4 |"\.Retur|
|00002110| 6e 20 74 68 65 20 6d 61 | 63 72 6f 20 6e 61 6d 65 |n the ma|cro name|
|00002120| 64 20 62 79 20 4f 42 4a | 45 43 54 2c 20 6f 72 20 |d by OBJ|ECT, or |
|00002130| 6e 69 6c 20 69 66 20 69 | 74 20 69 73 20 6e 6f 74 |nil if i|t is not|
|00002140| 20 61 20 6d 61 63 72 6f | 2e 22 5d 29 0a 28 64 65 | a macro|."]).(de|
|00002150| 66 61 6c 69 61 73 20 27 | 65 64 65 62 75 67 2d 66 |falias '|edebug-f|
|00002160| 75 6e 63 74 69 6f 6e 70 | 20 23 5b 28 6f 62 6a 65 |unctionp| #[(obje|
|00002170| 63 74 29 20 22 08 89 18 | 39 83 14 00 c1 08 21 83 |ct) "...|9.....!.|
|00002180| 14 00 08 4b 89 10 82 03 | 00 08 29 10 c2 08 21 84 |...K....|..)...!.|
|00002190| 30 00 08 3c 85 31 00 08 | 40 c3 3d 85 31 00 08 41 |0..<.1..|@.=.1..A|
|000021a0| 40 3c 85 31 00 08 87 22 | 20 5b 6f 62 6a 65 63 74 |@<.1..."| [object|
|000021b0| 20 66 62 6f 75 6e 64 70 | 20 73 75 62 72 70 20 6c | fboundp| subrp l|
|000021c0| 61 6d 62 64 61 5d 20 34 | 20 22 5c 0a 52 65 74 75 |ambda] 4| "\.Retu|
|000021d0| 72 6e 73 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |rns the |function|
|000021e0| 20 6e 61 6d 65 64 20 62 | 79 20 4f 42 4a 45 43 54 | named b|y OBJECT|
|000021f0| 2c 20 6f 72 20 6e 69 6c | 20 69 66 20 69 74 20 69 |, or nil| if it i|
|00002200| 73 20 6e 6f 74 20 61 20 | 66 75 6e 63 74 69 6f 6e |s not a |function|
|00002210| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 28 |."]).(de|falias (|
|00002220| 71 75 6f 74 65 20 65 64 | 65 62 75 67 2d 73 6f 72 |quote ed|ebug-sor|
|00002230| 74 2d 61 6c 69 73 74 29 | 20 23 5b 28 61 6c 69 73 |t-alist)| #[(alis|
|00002240| 74 20 66 75 6e 63 74 69 | 6f 6e 29 20 22 c0 09 c2 |t functi|on) "...|
|00002250| 5c 22 87 22 20 5b 73 6f | 72 74 20 61 6c 69 73 74 |\"." [so|rt alist|
|00002260| 20 23 5b 28 65 31 20 65 | 32 29 20 22 08 09 40 5c | #[(e1 e|2) "..@\|
|00002270| 6e 40 5c 22 87 22 20 5b | 66 75 6e 63 74 69 6f 6e |n@\"." [|function|
|00002280| 20 65 31 20 65 32 5d 20 | 33 5d 5d 20 33 5d 29 0a | e1 e2] |3]] 3]).|
|00002290| 28 64 65 66 63 6f 6e 73 | 74 20 65 64 65 62 75 67 |(defcons|t edebug|
|000022a0| 2d 74 72 61 63 65 2d 62 | 75 66 66 65 72 20 22 2a |-trace-b|uffer "*|
|000022b0| 65 64 65 62 75 67 2d 74 | 72 61 63 65 2a 22 20 22 |edebug-t|race*" "|
|000022c0| 5c 0a 4e 61 6d 65 20 6f | 66 20 74 68 65 20 62 75 |\.Name o|f the bu|
|000022d0| 66 66 65 72 20 74 6f 20 | 70 75 74 20 74 72 61 63 |ffer to |put trac|
|000022e0| 65 20 69 6e 66 6f 20 69 | 6e 2e 22 29 0a 28 62 79 |e info i|n.").(by|
|000022f0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 5c 22 88 c0 |te-code |"...\"..|
|00002300| c3 c4 5c 22 88 c0 c5 c6 | 5c 22 88 c0 c7 c8 5c 22 |..\"....|\"....\"|
|00002310| 88 c0 c9 ca 5c 22 88 c0 | cb cc 5c 22 88 c0 cd ce |....\"..|..\"....|
|00002320| 5c 22 88 c0 cf d0 5c 22 | 88 d1 d2 d3 5c 22 88 d4 |\"....\"|....\"..|
|00002330| d5 21 84 39 00 c0 d5 d6 | 4b 5c 22 88 c0 87 22 20 |.!.9....|K\"..." |
|00002340| 5b 64 65 66 61 6c 69 61 | 73 20 65 64 65 62 75 67 |[defalia|s edebug|
|00002350| 2d 70 6f 70 2d 74 6f 2d | 62 75 66 66 65 72 20 23 |-pop-to-|buffer #|
|00002360| 5b 28 62 75 66 66 65 72 | 20 26 6f 70 74 69 6f 6e |[(buffer| &option|
|00002370| 61 6c 20 77 69 6e 64 6f | 77 29 20 22 c0 09 21 83 |al windo|w) "..!.|
|00002380| 18 00 c2 09 21 83 18 00 | c3 09 21 5c 66 3d 83 18 |....!...|..!\f=..|
|00002390| 00 09 82 29 00 c3 c5 20 | 21 5c 66 3d 83 26 00 c5 |...)... |!\f=.&..|
|000023a0| 20 82 29 00 c6 5c 66 21 | 89 11 83 35 00 c7 09 21 | .)..\f!|...5...!|
|000023b0| 88 82 4c 00 c8 20 83 3d | 00 c9 20 88 ca 0e 0b 21 |..L.. .=|.. ....!|
|000023c0| cc 20 3d 84 4c 00 c7 cc | 20 21 88 cd c5 20 5c 66 |. =.L...| !... \f|
|000023d0| 5c 22 88 ce c5 20 cf 5c | 22 87 22 20 5b 77 69 6e |\"... .\|"." [win|
|000023e0| 64 6f 77 70 20 77 69 6e | 64 6f 77 20 65 64 65 62 |dowp win|dow edeb|
|000023f0| 75 67 2d 77 69 6e 64 6f | 77 2d 6c 69 76 65 2d 70 |ug-windo|w-live-p|
|00002400| 20 77 69 6e 64 6f 77 2d | 62 75 66 66 65 72 20 62 | window-|buffer b|
|00002410| 75 66 66 65 72 20 73 65 | 6c 65 63 74 65 64 2d 77 |uffer se|lected-w|
|00002420| 69 6e 64 6f 77 20 65 64 | 65 62 75 67 2d 67 65 74 |indow ed|ebug-get|
|00002430| 2d 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 20 73 |-buffer-|window s|
|00002440| 65 6c 65 63 74 2d 77 69 | 6e 64 6f 77 20 6f 6e 65 |elect-wi|ndow one|
|00002450| 2d 77 69 6e 64 6f 77 2d | 70 20 73 70 6c 69 74 2d |-window-|p split-|
|00002460| 77 69 6e 64 6f 77 20 67 | 65 74 2d 62 75 66 66 65 |window g|et-buffe|
|00002470| 72 2d 77 69 6e 64 6f 77 | 20 65 64 65 62 75 67 2d |r-window| edebug-|
|00002480| 74 72 61 63 65 2d 62 75 | 66 66 65 72 20 6e 65 78 |trace-bu|ffer nex|
|00002490| 74 2d 77 69 6e 64 6f 77 | 20 73 65 74 2d 77 69 6e |t-window| set-win|
|000024a0| 64 6f 77 2d 62 75 66 66 | 65 72 20 73 65 74 2d 77 |dow-buff|er set-w|
|000024b0| 69 6e 64 6f 77 2d 68 73 | 63 72 6f 6c 6c 20 30 5d |indow-hs|croll 0]|
|000024c0| 20 34 5d 20 65 64 65 62 | 75 67 2d 67 65 74 2d 64 | 4] edeb|ug-get-d|
|000024d0| 69 73 70 6c 61 79 65 64 | 2d 62 75 66 66 65 72 2d |isplayed|-buffer-|
|000024e0| 70 6f 69 6e 74 73 20 23 | 5b 6e 69 6c 20 22 8a c0 |points #|[nil "..|
|000024f0| 20 19 c2 09 21 1b c4 1d | c4 1e 06 0b 09 3d 84 2a | ...!...|.....=.*|
|00002500| 00 c7 0b 21 89 16 06 71 | 88 0e 06 60 42 0d 42 15 |...!...q|...`B.B.|
|00002510| c2 0b 21 89 13 82 0e 00 | 0d 2d 87 22 20 5b 73 65 |..!.....|.-." [se|
|00002520| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 66 69 |lected-w|indow fi|
|00002530| 72 73 74 2d 77 69 6e 64 | 6f 77 20 6e 65 78 74 2d |rst-wind|ow next-|
|00002540| 77 69 6e 64 6f 77 20 6e | 65 78 74 20 6e 69 6c 20 |window n|ext nil |
|00002550| 62 75 66 66 65 72 2d 70 | 6f 69 6e 74 2d 6c 69 73 |buffer-p|oint-lis|
|00002560| 74 20 62 75 66 66 65 72 | 20 77 69 6e 64 6f 77 2d |t buffer| window-|
|00002570| 62 75 66 66 65 72 5d 20 | 33 5d 20 65 64 65 62 75 |buffer] |3] edebu|
|00002580| 67 2d 73 65 74 2d 62 75 | 66 66 65 72 2d 70 6f 69 |g-set-bu|ffer-poi|
|00002590| 6e 74 73 20 23 5b 28 62 | 75 66 66 65 72 2d 70 6f |nts #[(b|uffer-po|
|000025a0| 69 6e 74 73 29 20 22 70 | 18 c1 c2 0b 5c 22 88 08 |ints) "p|....\"..|
|000025b0| 71 29 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 62 75 |q)." [cu|rrent-bu|
|000025c0| 66 66 65 72 20 6d 61 70 | 63 61 72 20 23 5b 28 62 |ffer map|car #[(b|
|000025d0| 75 66 2d 70 6f 69 6e 74 | 29 20 22 c0 09 40 21 85 |uf-point|) "..@!.|
|000025e0| 0e 00 09 40 71 88 09 41 | 62 87 22 20 5b 62 75 66 |...@q..A|b." [buf|
|000025f0| 66 65 72 2d 6e 61 6d 65 | 20 62 75 66 2d 70 6f 69 |fer-name| buf-poi|
|00002600| 6e 74 5d 20 32 5d 20 62 | 75 66 66 65 72 2d 70 6f |nt] 2] b|uffer-po|
|00002610| 69 6e 74 73 5d 20 33 5d | 20 65 64 65 62 75 67 2d |ints] 3]| edebug-|
|00002620| 63 75 72 72 65 6e 74 2d | 77 69 6e 64 6f 77 73 20 |current-|windows |
|00002630| 23 5b 28 77 68 69 63 68 | 2d 77 69 6e 64 6f 77 73 |#[(which|-windows|
|00002640| 29 20 22 08 3c 83 5c 6e | 00 c1 c2 08 5c 22 87 c3 |) ".<.\n|....\"..|
|00002650| 20 87 22 20 5b 77 68 69 | 63 68 2d 77 69 6e 64 6f | ." [whi|ch-windo|
|00002660| 77 73 20 6d 61 70 63 61 | 72 20 23 5b 28 77 69 6e |ws mapca|r #[(win|
|00002670| 64 6f 77 29 20 22 c0 09 | 21 85 15 00 09 c2 09 21 |dow) "..|!......!|
|00002680| c3 09 21 c4 09 21 c5 09 | 21 af 05 87 22 20 5b 65 |..!..!..|!..." [e|
|00002690| 64 65 62 75 67 2d 77 69 | 6e 64 6f 77 2d 6c 69 76 |debug-wi|ndow-liv|
|000026a0| 65 2d 70 20 77 69 6e 64 | 6f 77 20 77 69 6e 64 6f |e-p wind|ow windo|
|000026b0| 77 2d 62 75 66 66 65 72 | 20 77 69 6e 64 6f 77 2d |w-buffer| window-|
|000026c0| 70 6f 69 6e 74 20 77 69 | 6e 64 6f 77 2d 73 74 61 |point wi|ndow-sta|
|000026d0| 72 74 20 77 69 6e 64 6f | 77 2d 68 73 63 72 6f 6c |rt windo|w-hscrol|
|000026e0| 6c 5d 20 36 5d 20 63 75 | 72 72 65 6e 74 2d 77 69 |l] 6] cu|rrent-wi|
|000026f0| 6e 64 6f 77 2d 63 6f 6e | 66 69 67 75 72 61 74 69 |ndow-con|figurati|
|00002700| 6f 6e 5d 20 33 5d 20 65 | 64 65 62 75 67 2d 73 65 |on] 3] e|debug-se|
|00002710| 74 2d 77 69 6e 64 6f 77 | 73 20 23 5b 28 77 69 6e |t-window|s #[(win|
|00002720| 64 6f 77 2d 69 6e 66 6f | 29 20 22 08 3c 83 5c 6e |dow-info|) ".<.\n|
|00002730| 00 c1 c2 08 5c 22 87 c3 | 08 21 87 22 20 5b 77 69 |....\"..|.!." [wi|
|00002740| 6e 64 6f 77 2d 69 6e 66 | 6f 20 6d 61 70 63 61 72 |ndow-inf|o mapcar|
|00002750| 20 23 5b 28 6f 6e 65 2d | 77 69 6e 64 6f 77 2d 69 | #[(one-|window-i|
|00002760| 6e 66 6f 29 20 22 08 85 | 08 00 c1 c2 08 5c 22 87 |nfo) "..|.....\".|
|00002770| 22 20 5b 6f 6e 65 2d 77 | 69 6e 64 6f 77 2d 69 6e |" [one-w|indow-in|
|00002780| 66 6f 20 61 70 70 6c 79 | 20 23 5b 28 77 69 6e 64 |fo apply| #[(wind|
|00002790| 6f 77 20 62 75 66 66 65 | 72 20 70 6f 69 6e 74 20 |ow buffe|r point |
|000027a0| 73 74 61 72 74 20 68 73 | 63 72 6f 6c 6c 29 20 22 |start hs|croll) "|
|000027b0| c0 09 21 85 1b 00 c2 09 | 0b 5c 22 88 c4 09 0d 5c |..!.....|.\"....\|
|000027c0| 22 88 c6 09 0e 07 5c 22 | 88 c8 09 0e 09 5c 22 87 |".....\"|.....\".|
|000027d0| 22 20 5b 65 64 65 62 75 | 67 2d 77 69 6e 64 6f 77 |" [edebu|g-window|
|000027e0| 2d 6c 69 76 65 2d 70 20 | 77 69 6e 64 6f 77 20 73 |-live-p |window s|
|000027f0| 65 74 2d 77 69 6e 64 6f | 77 2d 62 75 66 66 65 72 |et-windo|w-buffer|
|00002800| 20 62 75 66 66 65 72 20 | 73 65 74 2d 77 69 6e 64 | buffer |set-wind|
|00002810| 6f 77 2d 70 6f 69 6e 74 | 20 70 6f 69 6e 74 20 73 |ow-point| point s|
|00002820| 65 74 2d 77 69 6e 64 6f | 77 2d 73 74 61 72 74 20 |et-windo|w-start |
|00002830| 73 74 61 72 74 20 73 65 | 74 2d 77 69 6e 64 6f 77 |start se|t-window|
|00002840| 2d 68 73 63 72 6f 6c 6c | 20 68 73 63 72 6f 6c 6c |-hscroll| hscroll|
|00002850| 5d 20 33 5d 5d 20 33 5d | 20 73 65 74 2d 77 69 6e |] 3]] 3]| set-win|
|00002860| 64 6f 77 2d 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow-conf|iguratio|
|00002870| 6e 5d 20 33 5d 20 65 64 | 65 62 75 67 2d 67 65 74 |n] 3] ed|ebug-get|
|00002880| 2d 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 20 67 |-buffer-|window g|
|00002890| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|000028a0| 20 65 64 65 62 75 67 2d | 73 69 74 2d 66 6f 72 20 | edebug-|sit-for |
|000028b0| 73 69 74 2d 66 6f 72 20 | 65 64 65 62 75 67 2d 69 |sit-for |edebug-i|
|000028c0| 6e 70 75 74 2d 70 65 6e | 64 69 6e 67 2d 70 20 69 |nput-pen|ding-p i|
|000028d0| 6e 70 75 74 2d 70 65 6e | 64 69 6e 67 2d 70 20 72 |nput-pen|ding-p r|
|000028e0| 65 71 75 69 72 65 20 65 | 76 61 6c 2d 72 65 67 20 |equire e|val-reg |
|000028f0| 22 65 76 61 6c 2d 72 65 | 67 22 20 66 62 6f 75 6e |"eval-re|g" fboun|
|00002900| 64 70 20 65 64 65 62 75 | 67 2d 6f 72 69 67 69 6e |dp edebu|g-origin|
|00002910| 61 6c 2d 72 65 61 64 20 | 72 65 61 64 5d 20 33 29 |al-read |read] 3)|
|00002920| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 64 65 62 |.(defali|as 'edeb|
|00002930| 75 67 2d 72 65 61 64 20 | 23 5b 28 26 6f 70 74 69 |ug-read |#[(&opti|
|00002940| 6f 6e 61 6c 20 73 74 72 | 65 61 6d 29 20 22 08 84 |onal str|eam) "..|
|00002950| 06 00 09 10 08 70 3d 83 | 0f 00 c2 20 87 c3 08 21 |.....p=.|... ...!|
|00002960| 87 22 20 5b 73 74 72 65 | 61 6d 20 73 74 61 6e 64 |." [stre|am stand|
|00002970| 61 72 64 2d 69 6e 70 75 | 74 20 65 64 65 62 75 67 |ard-inpu|t edebug|
|00002980| 2d 72 65 61 64 2d 61 6e | 64 2d 6d 61 79 62 65 2d |-read-an|d-maybe-|
|00002990| 77 72 61 70 2d 66 6f 72 | 6d 20 65 64 65 62 75 67 |wrap-for|m edebug|
|000029a0| 2d 6f 72 69 67 69 6e 61 | 6c 2d 72 65 61 64 5d 20 |-origina|l-read] |
|000029b0| 32 20 22 5c 0a 52 65 61 | 64 20 6f 6e 65 20 4c 69 |2 "\.Rea|d one Li|
|000029c0| 73 70 20 65 78 70 72 65 | 73 73 69 6f 6e 20 61 73 |sp expre|ssion as|
|000029d0| 20 74 65 78 74 20 66 72 | 6f 6d 20 53 54 52 45 41 | text fr|om STREA|
|000029e0| 4d 2c 20 72 65 74 75 72 | 6e 20 61 73 20 4c 69 73 |M, retur|n as Lis|
|000029f0| 70 20 6f 62 6a 65 63 74 | 2e 0a 49 66 20 53 54 52 |p object|..If STR|
|00002a00| 45 41 4d 20 69 73 20 6e | 69 6c 2c 20 75 73 65 20 |EAM is n|il, use |
|00002a10| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 60 73 74 |the valu|e of `st|
|00002a20| 61 6e 64 61 72 64 2d 69 | 6e 70 75 74 27 20 28 77 |andard-i|nput' (w|
|00002a30| 68 69 63 68 20 73 65 65 | 29 2e 0a 53 54 52 45 41 |hich see|)..STREA|
|00002a40| 4d 20 6f 72 20 74 68 65 | 20 76 61 6c 75 65 20 6f |M or the| value o|
|00002a50| 66 20 60 73 74 61 6e 64 | 61 72 64 2d 69 6e 70 75 |f `stand|ard-inpu|
|00002a60| 74 27 20 6d 61 79 20 62 | 65 3a 0a 20 61 20 62 75 |t' may b|e:. a bu|
|00002a70| 66 66 65 72 20 28 72 65 | 61 64 20 66 72 6f 6d 20 |ffer (re|ad from |
|00002a80| 70 6f 69 6e 74 20 61 6e | 64 20 61 64 76 61 6e 63 |point an|d advanc|
|00002a90| 65 20 69 74 29 0a 20 61 | 20 6d 61 72 6b 65 72 20 |e it). a| marker |
|00002aa0| 28 72 65 61 64 20 66 72 | 6f 6d 20 77 68 65 72 65 |(read fr|om where|
|00002ab0| 20 69 74 20 70 6f 69 6e | 74 73 20 61 6e 64 20 61 | it poin|ts and a|
|00002ac0| 64 76 61 6e 63 65 20 69 | 74 29 0a 20 61 20 66 75 |dvance i|t). a fu|
|00002ad0| 6e 63 74 69 6f 6e 20 28 | 63 61 6c 6c 20 69 74 20 |nction (|call it |
|00002ae0| 77 69 74 68 20 6e 6f 20 | 61 72 67 75 6d 65 6e 74 |with no |argument|
|00002af0| 73 20 66 6f 72 20 65 61 | 63 68 20 63 68 61 72 61 |s for ea|ch chara|
|00002b00| 63 74 65 72 2c 0a 20 20 | 20 20 20 63 61 6c 6c 20 |cter,. | call |
|00002b10| 69 74 20 77 69 74 68 20 | 61 20 63 68 61 72 20 61 |it with |a char a|
|00002b20| 73 20 61 72 67 75 6d 65 | 6e 74 20 74 6f 20 70 75 |s argume|nt to pu|
|00002b30| 73 68 20 61 20 63 68 61 | 72 20 62 61 63 6b 29 0a |sh a cha|r back).|
|00002b40| 20 61 20 73 74 72 69 6e | 67 20 28 74 61 6b 65 73 | a strin|g (takes|
|00002b50| 20 74 65 78 74 20 66 72 | 6f 6d 20 73 74 72 69 6e | text fr|om strin|
|00002b60| 67 2c 20 73 74 61 72 74 | 69 6e 67 20 61 74 20 74 |g, start|ing at t|
|00002b70| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 29 0a 20 74 |he begin|ning). t|
|00002b80| 20 28 72 65 61 64 20 74 | 65 78 74 20 6c 69 6e 65 | (read t|ext line|
|00002b90| 20 75 73 69 6e 67 20 6d | 69 6e 69 62 75 66 66 65 | using m|inibuffe|
|00002ba0| 72 20 61 6e 64 20 75 73 | 65 20 69 74 29 2e 0a 0a |r and us|e it)...|
|00002bb0| 54 68 69 73 20 76 65 72 | 73 69 6f 6e 2c 20 66 72 |This ver|sion, fr|
|00002bc0| 6f 6d 20 45 64 65 62 75 | 67 2c 20 6d 61 79 62 65 |om Edebu|g, maybe|
|00002bd0| 20 69 6e 73 74 72 75 6d | 65 6e 74 73 20 74 68 65 | instrum|ents the|
|00002be0| 20 65 78 70 72 65 73 73 | 69 6f 6e 2e 20 42 75 74 | express|ion. But|
|00002bf0| 20 74 68 65 0a 53 54 52 | 45 41 4d 20 6d 75 73 74 | the.STR|EAM must|
|00002c00| 20 62 65 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | be the |current |
|00002c10| 62 75 66 66 65 72 20 74 | 6f 20 64 6f 20 73 6f 2e |buffer t|o do so.|
|00002c20| 20 20 57 68 65 74 68 65 | 72 20 69 74 20 69 6e 73 | Whethe|r it ins|
|00002c30| 74 75 6d 65 6e 74 73 20 | 69 73 0a 61 6c 73 6f 20 |tuments |is.also |
|00002c40| 64 65 70 65 6e 64 65 6e | 74 20 6f 6e 20 74 68 65 |dependen|t on the|
|00002c50| 20 76 61 6c 75 65 73 20 | 6f 66 20 60 65 64 65 62 | values |of `edeb|
|00002c60| 75 67 2d 61 6c 6c 2d 64 | 65 66 73 27 20 61 6e 64 |ug-all-d|efs' and|
|00002c70| 0a 60 65 64 65 62 75 67 | 2d 61 6c 6c 2d 66 6f 72 |.`edebug|-all-for|
|00002c80| 6d 73 27 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ms'."]).|(byte-co|
|00002c90| 64 65 20 22 c0 c1 21 84 | 5c 66 00 c2 c1 c3 4b 5c |de "..!.|\f....K\|
|00002ca0| 22 88 c0 87 22 20 5b 66 | 62 6f 75 6e 64 70 20 65 |"..." [f|boundp e|
|00002cb0| 64 65 62 75 67 2d 6f 72 | 69 67 69 6e 61 6c 2d 65 |debug-or|iginal-e|
|00002cc0| 76 61 6c 2d 64 65 66 75 | 6e 20 64 65 66 61 6c 69 |val-defu|n defali|
|00002cd0| 61 73 20 65 76 61 6c 2d | 64 65 66 75 6e 5d 20 33 |as eval-|defun] 3|
|00002ce0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 64 65 |).(defal|ias 'ede|
|00002cf0| 62 75 67 2d 65 76 61 6c | 2d 64 65 66 75 6e 20 23 |bug-eval|-defun #|
|00002d00| 5b 28 65 64 65 62 75 67 | 2d 69 74 29 20 22 08 3f |[(edebug|-it) ".?|
|00002d10| 09 3f 3d 3f c2 1b 1c c5 | 5c 66 09 08 3f 3d 19 1e |.?=?....|\f..?=..|
|00002d20| 06 c7 20 2a 21 13 5c 66 | 84 21 00 c8 0b 21 82 5c |.. *!.\f|.!...!.\|
|00002d30| 22 00 0b 2a 87 22 20 5b | 65 64 65 62 75 67 2d 69 |"..*." [|edebug-i|
|00002d40| 74 20 65 64 65 62 75 67 | 2d 61 6c 6c 2d 64 65 66 |t edebug|-all-def|
|00002d50| 73 20 6e 69 6c 20 65 64 | 65 62 75 67 2d 72 65 73 |s nil ed|ebug-res|
|00002d60| 75 6c 74 20 65 64 65 62 | 75 67 67 69 6e 67 20 65 |ult edeb|ugging e|
|00002d70| 76 61 6c 20 65 64 65 62 | 75 67 2d 61 6c 6c 2d 66 |val edeb|ug-all-f|
|00002d80| 6f 72 6d 73 20 65 64 65 | 62 75 67 2d 72 65 61 64 |orms ede|bug-read|
|00002d90| 2d 74 6f 70 2d 6c 65 76 | 65 6c 2d 66 6f 72 6d 20 |-top-lev|el-form |
|00002da0| 70 72 69 6e 63 5d 20 34 | 20 22 5c 0a 45 76 61 6c |princ] 4| "\.Eval|
|00002db0| 75 61 74 65 20 74 68 65 | 20 74 6f 70 2d 6c 65 76 |uate the| top-lev|
|00002dc0| 65 6c 20 66 6f 72 6d 20 | 63 6f 6e 74 61 69 6e 69 |el form |containi|
|00002dd0| 6e 67 20 70 6f 69 6e 74 | 2c 20 6f 72 20 61 66 74 |ng point|, or aft|
|00002de0| 65 72 20 70 6f 69 6e 74 | 2e 0a 0a 54 68 69 73 20 |er point|...This |
|00002df0| 76 65 72 73 69 6f 6e 2c | 20 66 72 6f 6d 20 45 64 |version,| from Ed|
|00002e00| 65 62 75 67 2c 20 68 61 | 73 20 74 68 65 20 66 6f |ebug, ha|s the fo|
|00002e10| 6c 6c 6f 77 69 6e 67 20 | 64 69 66 66 65 72 65 6e |llowing |differen|
|00002e20| 63 65 73 3a 20 57 69 74 | 68 20 61 0a 70 72 65 66 |ces: Wit|h a.pref|
|00002e30| 69 78 20 61 72 67 75 6d | 65 6e 74 20 69 6e 73 74 |ix argum|ent inst|
|00002e40| 72 75 6d 65 6e 74 20 74 | 68 65 20 63 6f 64 65 20 |rument t|he code |
|00002e50| 66 6f 72 20 45 64 65 62 | 75 67 2e 20 20 49 66 20 |for Edeb|ug. If |
|00002e60| 60 65 64 65 62 75 67 2d | 61 6c 6c 2d 64 65 66 73 |`edebug-|all-defs|
|00002e70| 27 20 69 73 0a 6e 6f 6e | 2d 6e 69 6c 2c 20 74 68 |' is.non|-nil, th|
|00002e80| 65 6e 20 74 68 65 20 63 | 6f 64 65 20 69 73 20 69 |en the c|ode is i|
|00002e90| 6e 73 74 72 75 6d 65 6e | 74 65 64 20 2a 75 6e 6c |nstrumen|ted *unl|
|00002ea0| 65 73 73 2a 20 74 68 65 | 72 65 20 69 73 20 61 20 |ess* the|re is a |
|00002eb0| 70 72 65 66 69 78 0a 61 | 72 67 75 6d 65 6e 74 2e |prefix.a|rgument.|
|00002ec0| 20 20 49 66 20 69 6e 73 | 74 72 75 6d 65 6e 74 69 | If ins|trumenti|
|00002ed0| 6e 67 2c 20 69 74 20 70 | 72 69 6e 74 73 3a 20 5c |ng, it p|rints: \|
|00002ee0| 22 45 64 65 62 75 67 3a | 20 3c 66 75 6e 63 74 69 |"Edebug:| <functi|
|00002ef0| 6f 6e 20 6e 61 6d 65 3e | 5c 22 2e 0a 4f 74 68 65 |on name>|\"..Othe|
|00002f00| 72 77 69 73 65 2c 20 69 | 74 20 70 72 69 6e 74 73 |rwise, i|t prints|
|00002f10| 20 69 6e 20 74 68 65 20 | 6d 69 6e 69 62 75 66 66 | in the |minibuff|
|00002f20| 65 72 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |er." "P"|]).(defa|
|00002f30| 6c 69 61 73 20 28 71 75 | 6f 74 65 20 65 64 65 62 |lias (qu|ote edeb|
|00002f40| 75 67 2d 64 65 66 75 6e | 29 20 28 71 75 6f 74 65 |ug-defun|) (quote|
|00002f50| 20 65 64 65 62 75 67 2d | 65 76 61 6c 2d 74 6f 70 | edebug-|eval-top|
|00002f60| 2d 6c 65 76 65 6c 2d 66 | 6f 72 6d 29 29 0a 28 64 |-level-f|orm)).(d|
|00002f70| 65 66 61 6c 69 61 73 20 | 27 65 64 65 62 75 67 2d |efalias |'edebug-|
|00002f80| 65 76 61 6c 2d 74 6f 70 | 2d 6c 65 76 65 6c 2d 66 |eval-top|-level-f|
|00002f90| 6f 72 6d 20 23 5b 6e 69 | 6c 20 22 c0 c1 89 1a 1b |orm #[ni|l ".....|
|00002fa0| c4 20 2a 21 87 22 20 5b | 65 76 61 6c 20 74 20 65 |. *!." [|eval t e|
|00002fb0| 64 65 62 75 67 2d 61 6c | 6c 2d 64 65 66 73 20 65 |debug-al|l-defs e|
|00002fc0| 64 65 62 75 67 2d 61 6c | 6c 2d 66 6f 72 6d 73 20 |debug-al|l-forms |
|00002fd0| 65 64 65 62 75 67 2d 72 | 65 61 64 2d 74 6f 70 2d |edebug-r|ead-top-|
|00002fe0| 6c 65 76 65 6c 2d 66 6f | 72 6d 5d 20 33 20 22 5c |level-fo|rm] 3 "\|
|00002ff0| 0a 45 76 61 6c 75 61 74 | 65 20 61 20 74 6f 70 20 |.Evaluat|e a top |
|00003000| 6c 65 76 65 6c 20 66 6f | 72 6d 2c 20 73 75 63 68 |level fo|rm, such|
|00003010| 20 61 73 20 61 20 64 65 | 66 75 6e 20 6f 72 20 64 | as a de|fun or d|
|00003020| 65 66 6d 61 63 72 6f 2e | 0a 54 68 69 73 20 69 73 |efmacro.|.This is|
|00003030| 20 6c 69 6b 65 20 60 65 | 76 61 6c 2d 64 65 66 75 | like `e|val-defu|
|00003040| 6e 27 2c 20 62 75 74 20 | 74 68 65 20 63 6f 64 65 |n', but |the code|
|00003050| 20 69 73 20 61 6c 77 61 | 79 73 20 69 6e 73 74 72 | is alwa|ys instr|
|00003060| 75 6d 65 6e 74 65 64 20 | 66 6f 72 20 45 64 65 62 |umented |for Edeb|
|00003070| 75 67 2e 0a 50 72 69 6e | 74 20 69 74 73 20 6e 61 |ug..Prin|t its na|
|00003080| 6d 65 20 69 6e 20 74 68 | 65 20 6d 69 6e 69 62 75 |me in th|e minibu|
|00003090| 66 66 65 72 20 61 6e 64 | 20 6c 65 61 76 65 20 70 |ffer and| leave p|
|000030a0| 6f 69 6e 74 20 77 68 65 | 72 65 20 69 74 20 69 73 |oint whe|re it is|
|000030b0| 2c 0a 6f 72 20 69 66 20 | 61 6e 20 65 72 72 6f 72 |,.or if |an error|
|000030c0| 20 6f 63 63 75 72 73 2c | 20 6c 65 61 76 65 20 70 | occurs,| leave p|
|000030d0| 6f 69 6e 74 20 61 66 74 | 65 72 20 69 74 20 77 69 |oint aft|er it wi|
|000030e0| 74 68 20 6d 61 72 6b 20 | 61 74 20 74 68 65 20 6f |th mark |at the o|
|000030f0| 72 69 67 69 6e 61 6c 0a | 70 6f 69 6e 74 2e 22 20 |riginal.|point." |
|00003100| 6e 69 6c 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |nil]).(b|yte-code|
|00003110| 20 22 c0 c1 c2 5c 22 88 | c0 c3 c4 5c 22 87 22 20 | "...\".|...\"." |
|00003120| 5b 64 65 66 61 6c 69 61 | 73 20 65 64 65 62 75 67 |[defalia|s edebug|
|00003130| 2d 72 65 61 64 2d 74 6f | 70 2d 6c 65 76 65 6c 2d |-read-to|p-level-|
|00003140| 66 6f 72 6d 20 23 5b 6e | 69 6c 20 22 60 18 c1 20 |form #[n|il "`.. |
|00003150| 88 c2 20 88 c3 20 08 62 | 88 29 87 22 20 5b 73 74 |.. .. .b|.)." [st|
|00003160| 61 72 74 69 6e 67 2d 70 | 6f 69 6e 74 20 65 6e 64 |arting-p|oint end|
|00003170| 2d 6f 66 2d 64 65 66 75 | 6e 20 62 65 67 69 6e 6e |-of-defu|n beginn|
|00003180| 69 6e 67 2d 6f 66 2d 64 | 65 66 75 6e 20 65 64 65 |ing-of-d|efun ede|
|00003190| 62 75 67 2d 72 65 61 64 | 2d 61 6e 64 2d 6d 61 79 |bug-read|-and-may|
|000031a0| 62 65 2d 77 72 61 70 2d | 66 6f 72 6d 5d 20 32 5d |be-wrap-|form] 2]|
|000031b0| 20 65 64 65 62 75 67 2d | 61 6c 6c 2d 64 65 66 75 | edebug-|all-defu|
|000031c0| 6e 73 20 65 64 65 62 75 | 67 2d 61 6c 6c 2d 64 65 |ns edebu|g-all-de|
|000031d0| 66 73 5d 20 33 29 0a 28 | 64 65 66 61 6c 69 61 73 |fs] 3).(|defalias|
|000031e0| 20 27 65 64 65 62 75 67 | 2d 61 6c 6c 2d 64 65 66 | 'edebug|-all-def|
|000031f0| 73 20 23 5b 6e 69 6c 20 | 22 08 3f 10 c1 c2 08 83 |s #[nil |".?.....|
|00003200| 0d 00 c3 82 0e 00 c4 5c | 22 87 22 20 5b 65 64 65 |.......\|"." [ede|
|00003210| 62 75 67 2d 61 6c 6c 2d | 64 65 66 73 20 6d 65 73 |bug-all-|defs mes|
|00003220| 73 61 67 65 20 22 45 64 | 65 62 75 67 67 69 6e 67 |sage "Ed|ebugging|
|00003230| 20 61 6c 6c 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 | all def|initions|
|00003240| 20 69 73 20 25 73 2e 22 | 20 22 6f 6e 22 20 22 6f | is %s."| "on" "o|
|00003250| 66 66 22 5d 20 33 20 22 | 5c 0a 54 6f 67 67 6c 65 |ff"] 3 "|\.Toggle|
|00003260| 20 65 64 65 62 75 67 67 | 69 6e 67 20 6f 66 20 61 | edebugg|ing of a|
|00003270| 6c 6c 20 64 65 66 69 6e | 69 74 69 6f 6e 73 2e 22 |ll defin|itions."|
|00003280| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00003290| 20 27 65 64 65 62 75 67 | 2d 61 6c 6c 2d 66 6f 72 | 'edebug|-all-for|
|000032a0| 6d 73 20 23 5b 6e 69 6c | 20 22 08 3f 10 c1 c2 08 |ms #[nil| ".?....|
|000032b0| 83 0d 00 c3 82 0e 00 c4 | 5c 22 87 22 20 5b 65 64 |........|\"." [ed|
|000032c0| 65 62 75 67 2d 61 6c 6c | 2d 66 6f 72 6d 73 20 6d |ebug-all|-forms m|
|000032d0| 65 73 73 61 67 65 20 22 | 45 64 65 62 75 67 67 69 |essage "|Edebuggi|
|000032e0| 6e 67 20 61 6c 6c 20 66 | 6f 72 6d 73 20 69 73 20 |ng all f|orms is |
|000032f0| 25 73 2e 22 20 22 6f 6e | 22 20 22 6f 66 66 22 5d |%s." "on|" "off"]|
|00003300| 20 33 20 22 5c 0a 54 6f | 67 67 6c 65 20 65 64 65 | 3 "\.To|ggle ede|
|00003310| 62 75 67 67 69 6e 67 20 | 6f 66 20 61 6c 6c 20 66 |bugging |of all f|
|00003320| 6f 72 6d 73 2e 22 20 6e | 69 6c 5d 29 0a 28 62 79 |orms." n|il]).(by|
|00003330| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 5c 22 88 c0 |te-code |"...\"..|
|00003340| c3 c4 5c 22 88 c5 c6 21 | 88 c7 16 06 c0 c8 c9 5c |..\"...!|.......\|
|00003350| 22 88 c0 ca cb 5c 22 88 | cc ca cd ce 23 88 c0 cf |"....\".|....#...|
|00003360| d0 5c 22 88 cc cf cd ce | 23 88 c0 d1 d2 5c 22 88 |.\".....|#....\".|
|00003370| cc d1 cd ce 23 88 c0 d3 | d4 5c 22 88 cc d3 cd ce |....#...|.\".....|
|00003380| 23 88 c0 d5 d6 5c 22 88 | c0 d7 d8 5c 22 88 c0 d9 |#....\".|...\"...|
|00003390| da 5c 22 88 c0 db dc 5c | 22 88 c0 dd de 5c 22 88 |.\"....\|"....\".|
|000033a0| df e0 e1 5c 22 e2 1e 23 | 1e 24 0e 23 e5 57 83 7b |...\"..#|.$.#.W.{|
|000033b0| 00 0e 24 0e 23 e6 49 88 | 0e 23 54 89 16 23 82 66 |..$.#.I.|.#T..#.f|
|000033c0| 00 0e 24 e7 e8 49 88 0e | 24 e9 ea 49 88 0e 24 eb |..$..I..|$..I..$.|
|000033d0| ec 49 88 0e 24 ed ee 49 | 88 0e 24 ef f0 49 88 0e |.I..$..I|..$..I..|
|000033e0| 24 f1 f2 49 88 0e 24 f3 | f4 49 88 0e 24 f5 f6 49 |$..I..$.|.I..$..I|
|000033f0| 88 0e 24 f7 f8 49 88 0e | 24 2a 16 39 c0 fa fb 5c |..$..I..|$*.9...\|
|00003400| 22 88 c0 fc fd 5c 22 88 | c0 fe ff 5c 22 88 c7 16 |"....\".|...\"...|
|00003410| 40 c7 16 41 c7 16 42 c7 | 16 43 c0 81 44 00 81 45 |@..A..B.|.C..D..E|
|00003420| 00 5c 22 88 cc 81 44 00 | cd ce 23 88 c0 81 46 00 |.\"...D.|..#...F.|
|00003430| 81 47 00 5c 22 88 c0 81 | 48 00 81 49 00 5c 22 88 |.G.\"...|H..I.\".|
|00003440| c0 81 4a 00 81 4b 00 5c | 22 88 cc 81 4c 00 81 4d |..J..K.\|"...L..M|
|00003450| 00 81 4e 00 23 88 cc 81 | 4c 00 81 4f 00 81 50 00 |..N.#...|L..O..P.|
|00003460| 23 88 c0 81 4c 00 81 51 | 00 5c 22 88 81 52 00 16 |#...L..Q|.\"..R..|
|00003470| 53 c0 81 54 00 81 55 00 | 5c 22 88 c0 81 56 00 81 |S..T..U.|\"...V..|
|00003480| 57 00 5c 22 88 c0 81 58 | 00 81 59 00 5c 22 88 c0 |W.\"...X|..Y.\"..|
|00003490| 81 5a 00 81 5b 00 5c 22 | 88 c0 81 5c 5c 00 81 5d |.Z..[.\"|...\\..]|
|000034a0| 00 5c 22 88 c0 81 5e 00 | 81 5f 00 5c 22 88 c0 81 |.\"...^.|._.\"...|
|000034b0| 60 00 81 61 00 5c 22 88 | 81 62 00 81 63 00 21 84 |`..a.\".|.b..c.!.|
|000034c0| 6f 01 c7 16 63 c0 81 64 | 00 81 65 00 5c 22 88 c0 |o...c..d|..e.\"..|
|000034d0| 81 66 00 81 67 00 5c 22 | 88 cc 81 66 00 cd ce 23 |.f..g.\"|...f...#|
|000034e0| 88 c0 81 68 00 81 69 00 | 5c 22 88 cc 81 68 00 cd |...h..i.|\"...h..|
|000034f0| ce 23 88 c0 81 6a 00 81 | 6b 00 5c 22 88 cc 81 6a |.#...j..|k.\"...j|
|00003500| 00 cd ce 23 88 c0 81 6c | 00 81 6d 00 5c 22 88 cc |...#...l|..m.\"..|
|00003510| 81 6c 00 cd ce 23 88 c0 | 81 6e 00 81 6f 00 5c 22 |.l...#..|.n..o.\"|
|00003520| 88 cc 81 6e 00 cd ce 23 | 88 c0 81 70 00 81 71 00 |...n...#|...p..q.|
|00003530| 5c 22 88 c0 81 72 00 81 | 73 00 5c 22 88 cc 81 72 |\"...r..|s.\"...r|
|00003540| 00 cd ce 23 88 c0 81 74 | 00 81 75 00 5c 22 88 c0 |...#...t|..u.\"..|
|00003550| 81 76 00 81 77 00 5c 22 | 88 c0 81 78 00 81 79 00 |.v..w.\"|...x..y.|
|00003560| 5c 22 88 81 62 00 81 7a | 00 21 84 0f 02 c7 16 7a |\"..b..z|.!.....z|
|00003570| c7 16 7b c7 16 7c c7 16 | 7d c7 16 7e c0 81 7f 00 |..{..|..|}..~....|
|00003580| 81 80 00 5c 22 88 c0 81 | 81 00 81 82 00 5c 22 88 |...\"...|.....\".|
|00003590| c0 81 83 00 81 84 00 5c | 22 87 22 20 5b 64 65 66 |.......\|"." [def|
|000035a0| 61 6c 69 61 73 20 65 64 | 65 62 75 67 2d 69 6e 73 |alias ed|ebug-ins|
|000035b0| 74 61 6c 6c 2d 72 65 61 | 64 2d 65 76 61 6c 2d 66 |tall-rea|d-eval-f|
|000035c0| 75 6e 63 74 69 6f 6e 73 | 20 23 5b 6e 69 6c 20 22 |unctions| #[nil "|
|000035d0| c0 4b c1 3d 3f 85 14 00 | c2 20 88 c3 c0 c1 5c 22 |.K.=?...|. ....\"|
|000035e0| 88 c3 c4 c5 5c 22 87 22 | 20 5b 72 65 61 64 20 65 |....\"."| [read e|
|000035f0| 64 65 62 75 67 2d 72 65 | 61 64 20 65 6c 69 73 70 |debug-re|ad elisp|
|00003600| 2d 65 76 61 6c 2d 72 65 | 67 69 6f 6e 2d 69 6e 73 |-eval-re|gion-ins|
|00003610| 74 61 6c 6c 20 64 65 66 | 61 6c 69 61 73 20 65 76 |tall def|alias ev|
|00003620| 61 6c 2d 64 65 66 75 6e | 20 65 64 65 62 75 67 2d |al-defun| edebug-|
|00003630| 65 76 61 6c 2d 64 65 66 | 75 6e 5d 20 33 20 6e 69 |eval-def|un] 3 ni|
|00003640| 6c 20 6e 69 6c 5d 20 65 | 64 65 62 75 67 2d 75 6e |l nil] e|debug-un|
|00003650| 69 6e 73 74 61 6c 6c 2d | 72 65 61 64 2d 65 76 61 |install-|read-eva|
|00003660| 6c 2d 66 75 6e 63 74 69 | 6f 6e 73 20 23 5b 6e 69 |l-functi|ons #[ni|
|00003670| 6c 20 22 c0 20 88 c1 c2 | c3 4b 5c 22 88 c1 c4 c5 |l ". ...|.K\"....|
|00003680| 4b 5c 22 87 22 20 5b 65 | 6c 69 73 70 2d 65 76 61 |K\"." [e|lisp-eva|
|00003690| 6c 2d 72 65 67 69 6f 6e | 2d 75 6e 69 6e 73 74 61 |l-region|-uninsta|
|000036a0| 6c 6c 20 64 65 66 61 6c | 69 61 73 20 72 65 61 64 |ll defal|ias read|
|000036b0| 20 65 64 65 62 75 67 2d | 6f 72 69 67 69 6e 61 6c | edebug-|original|
|000036c0| 2d 72 65 61 64 20 65 76 | 61 6c 2d 64 65 66 75 6e |-read ev|al-defun|
|000036d0| 20 65 64 65 62 75 67 2d | 6f 72 69 67 69 6e 61 6c | edebug-|original|
|000036e0| 2d 65 76 61 6c 2d 64 65 | 66 75 6e 5d 20 33 20 6e |-eval-de|fun] 3 n|
|000036f0| 69 6c 20 6e 69 6c 5d 20 | 6d 61 6b 65 2d 76 61 72 |il nil] |make-var|
|00003700| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00003710| 61 6c 20 65 64 65 62 75 | 67 2d 66 6f 72 6d 2d 64 |al edebu|g-form-d|
|00003720| 61 74 61 20 6e 69 6c 20 | 65 64 65 62 75 67 2d 6d |ata nil |edebug-m|
|00003730| 61 6b 65 2d 66 6f 72 6d | 2d 64 61 74 61 2d 65 6e |ake-form|-data-en|
|00003740| 74 72 79 20 23 5b 28 73 | 79 6d 62 6f 6c 20 62 65 |try #[(s|ymbol be|
|00003750| 67 69 6e 20 65 6e 64 29 | 20 22 08 09 5c 6e 45 87 |gin end)| "..\nE.|
|00003760| 22 20 5b 73 79 6d 62 6f | 6c 20 62 65 67 69 6e 20 |" [symbo|l begin |
|00003770| 65 6e 64 5d 20 33 5d 20 | 65 64 65 62 75 67 2d 66 |end] 3] |edebug-f|
|00003780| 6f 72 6d 2d 64 61 74 61 | 2d 6e 61 6d 65 20 23 5b |orm-data|-name #[|
|00003790| 28 65 6e 74 72 79 29 20 | 22 08 40 87 22 20 5b 65 |(entry) |".@." [e|
|000037a0| 6e 74 72 79 5d 20 31 5d | 20 70 75 74 20 62 79 74 |ntry] 1]| put byt|
|000037b0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 62 79 74 65 |e-optimi|zer byte|
|000037c0| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|000037d0| 65 78 70 61 6e 64 20 65 | 64 65 62 75 67 2d 66 6f |expand e|debug-fo|
|000037e0| 72 6d 2d 64 61 74 61 2d | 62 65 67 69 6e 20 23 5b |rm-data-|begin #[|
|000037f0| 28 65 6e 74 72 79 29 20 | 22 08 41 40 87 22 20 5b |(entry) |".A@." [|
|00003800| 65 6e 74 72 79 5d 20 31 | 5d 20 65 64 65 62 75 67 |entry] 1|] edebug|
|00003810| 2d 66 6f 72 6d 2d 64 61 | 74 61 2d 65 6e 64 20 23 |-form-da|ta-end #|
|00003820| 5b 28 65 6e 74 72 79 29 | 20 22 c0 09 38 87 22 20 |[(entry)| "..8." |
|00003830| 5b 32 20 65 6e 74 72 79 | 5d 20 32 5d 20 65 64 65 |[2 entry|] 2] ede|
|00003840| 62 75 67 2d 73 65 74 2d | 66 6f 72 6d 2d 64 61 74 |bug-set-|form-dat|
|00003850| 61 2d 65 6e 74 72 79 20 | 23 5b 28 65 6e 74 72 79 |a-entry |#[(entry|
|00003860| 20 6e 61 6d 65 20 62 65 | 67 69 6e 20 65 6e 64 29 | name be|gin end)|
|00003870| 20 22 08 09 a0 88 08 41 | 40 5c 6e c3 93 88 c4 08 | ".....A|@\n.....|
|00003880| 38 0d c3 93 87 22 20 5b | 65 6e 74 72 79 20 6e 61 |8...." [|entry na|
|00003890| 6d 65 20 62 65 67 69 6e | 20 6e 69 6c 20 32 20 65 |me begin| nil 2 e|
|000038a0| 6e 64 5d 20 33 5d 20 65 | 64 65 62 75 67 2d 67 65 |nd] 3] e|debug-ge|
|000038b0| 74 2d 66 6f 72 6d 2d 64 | 61 74 61 2d 65 6e 74 72 |t-form-d|ata-entr|
|000038c0| 79 20 23 5b 28 70 6e 74 | 20 26 6f 70 74 69 6f 6e |y #[(pnt| &option|
|000038d0| 61 6c 20 65 6e 64 2d 70 | 6f 69 6e 74 29 20 22 08 |al end-p|oint) ".|
|000038e0| c1 c2 1b 1c 1d 0d 83 62 | 00 c6 0b 57 83 62 00 0d |.......b|...W.b..|
|000038f0| 40 89 1e 07 89 1e 07 41 | 40 29 1e 08 0e 09 0e 08 |@......A|@)......|
|00003900| 5a 1e 5c 6e 0d 41 15 c6 | 0e 5c 6e 58 83 5e 00 0e |Z.\n.A..|.\nX.^..|
|00003910| 5c 6e 0b 57 83 5e 00 0e | 0b 83 49 00 0e 0b 0e 07 |\n.W.^..|..I.....|
|00003920| 1e 07 cc 0e 07 38 29 55 | 83 5e 00 0e 09 0e 07 1e |.....8)U|.^......|
|00003930| 07 cc 0e 07 38 29 58 83 | 5e 00 0e 5c 6e 13 0e 07 |....8)X.|^..\n...|
|00003940| 14 2b 82 06 00 5c 66 2b | 87 22 20 5b 65 64 65 62 |.+...\f+|." [edeb|
|00003950| 75 67 2d 66 6f 72 6d 2d | 64 61 74 61 20 6e 69 6c |ug-form-|data nil|
|00003960| 20 39 39 39 39 39 39 20 | 63 6c 6f 73 65 73 74 2d | 999999 |closest-|
|00003970| 64 69 73 74 20 63 6c 6f | 73 65 73 74 2d 65 6e 74 |dist clo|sest-ent|
|00003980| 72 79 20 72 65 73 74 20 | 30 20 65 6e 74 72 79 20 |ry rest |0 entry |
|00003990| 62 65 67 69 6e 20 70 6e | 74 20 64 69 73 74 20 65 |begin pn|t dist e|
|000039a0| 6e 64 2d 70 6f 69 6e 74 | 20 32 5d 20 34 5d 20 65 |nd-point| 2] 4] e|
|000039b0| 64 65 62 75 67 2d 66 6f | 72 6d 2d 64 61 74 61 2d |debug-fo|rm-data-|
|000039c0| 73 79 6d 62 6f 6c 20 23 | 5b 6e 69 6c 20 22 c0 60 |symbol #|[nil ".`|
|000039d0| 21 89 19 40 29 86 0d 00 | c2 c3 21 87 22 20 5b 65 |!..@)...|..!." [e|
|000039e0| 64 65 62 75 67 2d 67 65 | 74 2d 66 6f 72 6d 2d 64 |debug-ge|t-form-d|
|000039f0| 61 74 61 2d 65 6e 74 72 | 79 20 65 6e 74 72 79 20 |ata-entr|y entry |
|00003a00| 65 72 72 6f 72 20 22 4e | 6f 74 20 69 6e 73 69 64 |error "N|ot insid|
|00003a10| 65 20 69 6e 73 74 72 75 | 6d 65 6e 74 65 64 20 66 |e instru|mented f|
|00003a20| 6f 72 6d 22 5d 20 33 5d | 20 65 64 65 62 75 67 2d |orm"] 3]| edebug-|
|00003a30| 6d 61 6b 65 2d 74 6f 70 | 2d 66 6f 72 6d 2d 64 61 |make-top|-form-da|
|00003a40| 74 61 2d 65 6e 74 72 79 | 20 23 5b 28 6e 65 77 2d |ta-entry| #[(new-|
|00003a50| 65 6e 74 72 79 29 20 22 | c0 09 21 88 09 5c 6e 42 |entry) "|..!..\nB|
|00003a60| 89 12 87 22 20 5b 65 64 | 65 62 75 67 2d 63 6c 65 |..." [ed|ebug-cle|
|00003a70| 61 72 2d 66 6f 72 6d 2d | 64 61 74 61 2d 65 6e 74 |ar-form-|data-ent|
|00003a80| 72 79 20 6e 65 77 2d 65 | 6e 74 72 79 20 65 64 65 |ry new-e|ntry ede|
|00003a90| 62 75 67 2d 66 6f 72 6d | 2d 64 61 74 61 5d 20 32 |bug-form|-data] 2|
|00003aa0| 5d 20 65 64 65 62 75 67 | 2d 63 6c 65 61 72 2d 66 |] edebug|-clear-f|
|00003ab0| 6f 72 6d 2d 64 61 74 61 | 2d 65 6e 74 72 79 20 23 |orm-data|-entry #|
|00003ac0| 5b 28 65 6e 74 72 79 29 | 20 22 08 85 5c 6e 00 c1 |[(entry)| "..\n..|
|00003ad0| 08 5c 6e 5c 22 89 12 87 | 22 20 5b 65 6e 74 72 79 |.\n\"...|" [entry|
|00003ae0| 20 64 65 6c 71 20 65 64 | 65 62 75 67 2d 66 6f 72 | delq ed|ebug-for|
|00003af0| 6d 2d 64 61 74 61 5d 20 | 33 5d 20 65 64 65 62 75 |m-data] |3] edebu|
|00003b00| 67 2d 73 79 6e 74 61 78 | 2d 65 72 72 6f 72 20 23 |g-syntax|-error #|
|00003b10| 5b 28 26 72 65 73 74 20 | 61 72 67 73 29 20 22 c0 |[(&rest |args) ".|
|00003b20| c1 5c 6e 5c 22 87 22 20 | 5b 73 69 67 6e 61 6c 20 |.\n\"." |[signal |
|00003b30| 69 6e 76 61 6c 69 64 2d | 72 65 61 64 2d 73 79 6e |invalid-|read-syn|
|00003b40| 74 61 78 20 61 72 67 73 | 5d 20 33 5d 20 6d 61 6b |tax args|] 3] mak|
|00003b50| 65 2d 76 65 63 74 6f 72 | 20 32 35 36 20 73 79 6d |e-vector| 256 sym|
|00003b60| 62 6f 6c 20 30 20 69 20 | 74 61 62 6c 65 20 33 33 |bol 0 i |table 33|
|00003b70| 20 73 70 61 63 65 20 34 | 30 20 6c 70 61 72 65 6e | space 4|0 lparen|
|00003b80| 20 34 31 20 72 70 61 72 | 65 6e 20 33 39 20 71 75 | 41 rpar|en 39 qu|
|00003b90| 6f 74 65 20 33 34 20 73 | 74 72 69 6e 67 20 36 33 |ote 34 s|tring 63|
|00003ba0| 20 63 68 61 72 20 39 31 | 20 6c 62 72 61 63 6b 65 | char 91| lbracke|
|00003bb0| 74 20 39 33 20 72 62 72 | 61 63 6b 65 74 20 34 36 |t 93 rbr|acket 46|
|00003bc0| 20 64 6f 74 20 33 35 20 | 68 61 73 68 20 65 64 65 | dot 35 |hash ede|
|00003bd0| 62 75 67 2d 72 65 61 64 | 2d 73 79 6e 74 61 78 2d |bug-read|-syntax-|
|00003be0| 74 61 62 6c 65 20 65 64 | 65 62 75 67 2d 6e 65 78 |table ed|ebug-nex|
|00003bf0| 74 2d 74 6f 6b 65 6e 2d | 63 6c 61 73 73 20 23 5b |t-token-|class #[|
|00003c00| 6e 69 6c 20 22 c0 20 88 | 09 67 48 87 22 20 5b 65 |nil ". .|.gH." [e|
|00003c10| 64 65 62 75 67 2d 73 6b | 69 70 2d 77 68 69 74 65 |debug-sk|ip-white|
|00003c20| 73 70 61 63 65 20 65 64 | 65 62 75 67 2d 72 65 61 |space ed|ebug-rea|
|00003c30| 64 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 5d 20 |d-syntax|-table] |
|00003c40| 32 5d 20 65 64 65 62 75 | 67 2d 73 6b 69 70 2d 77 |2] edebu|g-skip-w|
|00003c50| 68 69 74 65 73 70 61 63 | 65 20 23 5b 6e 69 6c 20 |hitespac|e #[nil |
|00003c60| 22 c0 c1 77 88 67 c2 55 | 85 15 00 c3 c1 77 88 c0 |"..w.g.U|.....w..|
|00003c70| c1 77 88 82 04 00 87 22 | 20 5b 22 20 09 0d 5c 6e |.w....."| [" ..\n|
|00003c80| 5c 66 22 20 6e 69 6c 20 | 35 39 20 22 5e 5c 6e 0d |\f" nil |59 "^\n.|
|00003c90| 22 5d 20 32 5d 20 65 64 | 65 62 75 67 2d 72 65 61 |"] 2] ed|ebug-rea|
|00003ca0| 64 2d 73 65 78 70 20 23 | 5b 6e 69 6c 20 22 c0 20 |d-sexp #|[nil ". |
|00003cb0| 89 19 c2 3d 83 1a 00 c3 | 70 21 5c 66 68 48 c2 3d |...=....|p!\fhH.=|
|00003cc0| 84 42 00 c5 75 88 82 42 | 00 09 c6 3d 83 2f 00 c3 |.B..u..B|...=./..|
|00003cd0| 70 21 68 c7 55 84 42 00 | c5 75 88 82 42 00 09 c8 |p!h.U.B.|.u..B...|
|00003ce0| 3d 83 3f 00 c9 75 88 c8 | ca 20 44 82 42 00 c3 70 |=.?..u..|. D.B..p|
|00003cf0| 21 29 87 22 20 5b 65 64 | 65 62 75 67 2d 6e 65 78 |!)." [ed|ebug-nex|
|00003d00| 74 2d 74 6f 6b 65 6e 2d | 63 6c 61 73 73 20 63 6c |t-token-|class cl|
|00003d10| 61 73 73 20 73 79 6d 62 | 6f 6c 20 65 64 65 62 75 |ass symb|ol edebu|
|00003d20| 67 2d 6f 72 69 67 69 6e | 61 6c 2d 72 65 61 64 20 |g-origin|al-read |
|00003d30| 65 64 65 62 75 67 2d 72 | 65 61 64 2d 73 79 6e 74 |edebug-r|ead-synt|
|00003d40| 61 78 2d 74 61 62 6c 65 | 20 2d 31 20 73 74 72 69 |ax-table| -1 stri|
|00003d50| 6e 67 20 33 34 20 71 75 | 6f 74 65 20 31 20 65 64 |ng 34 qu|ote 1 ed|
|00003d60| 65 62 75 67 2d 72 65 61 | 64 2d 73 65 78 70 5d 20 |ebug-rea|d-sexp] |
|00003d70| 34 5d 20 65 64 65 62 75 | 67 2d 6f 66 66 73 65 74 |4] edebu|g-offset|
|00003d80| 73 20 65 64 65 62 75 67 | 2d 6f 66 66 73 65 74 73 |s edebug|-offsets|
|00003d90| 2d 73 74 61 63 6b 20 65 | 64 65 62 75 67 2d 63 75 |-stack e|debug-cu|
|00003da0| 72 72 65 6e 74 2d 6f 66 | 66 73 65 74 20 65 64 65 |rrent-of|fset ede|
|00003db0| 62 75 67 2d 72 65 61 64 | 2d 64 6f 74 74 65 64 2d |bug-read|-dotted-|
|00003dc0| 6c 69 73 74 20 65 64 65 | 62 75 67 2d 69 6e 69 74 |list ede|bug-init|
|00003dd0| 69 61 6c 69 7a 65 2d 6f | 66 66 73 65 74 73 20 23 |ialize-o|ffsets #|
|00003de0| 5b 6e 69 6c 20 22 c0 89 | 11 87 22 20 5b 6e 69 6c |[nil "..|.." [nil|
|00003df0| 20 65 64 65 62 75 67 2d | 63 75 72 72 65 6e 74 2d | edebug-|current-|
|00003e00| 6f 66 66 73 65 74 5d 20 | 32 5d 20 65 64 65 62 75 |offset] |2] edebu|
|00003e10| 67 2d 73 74 6f 72 65 2d | 62 65 66 6f 72 65 2d 6f |g-store-|before-o|
|00003e20| 66 66 73 65 74 20 23 5b | 28 70 6f 69 6e 74 29 20 |ffset #[|(point) |
|00003e30| 22 08 43 19 5c 6e 83 11 | 00 5c 6e 09 5c 6e 41 42 |".C.\n..|.\n.\nAB|
|00003e40| a1 88 82 18 00 09 13 c4 | 15 c4 16 06 09 0d 42 15 |........|......B.|
|00003e50| 09 89 12 29 87 22 20 5b | 70 6f 69 6e 74 20 6e 65 |...)." [|point ne|
|00003e60| 77 2d 6f 66 66 73 65 74 | 20 65 64 65 62 75 67 2d |w-offset| edebug-|
|00003e70| 63 75 72 72 65 6e 74 2d | 6f 66 66 73 65 74 20 65 |current-|offset e|
|00003e80| 64 65 62 75 67 2d 6f 66 | 66 73 65 74 73 20 6e 69 |debug-of|fsets ni|
|00003e90| 6c 20 65 64 65 62 75 67 | 2d 6f 66 66 73 65 74 73 |l edebug|-offsets|
|00003ea0| 2d 73 74 61 63 6b 20 65 | 64 65 62 75 67 2d 72 65 |-stack e|debug-re|
|00003eb0| 61 64 2d 64 6f 74 74 65 | 64 2d 6c 69 73 74 5d 20 |ad-dotte|d-list] |
|00003ec0| 33 5d 20 65 64 65 62 75 | 67 2d 73 74 6f 72 65 2d |3] edebu|g-store-|
|00003ed0| 61 66 74 65 72 2d 6f 66 | 66 73 65 74 20 23 5b 28 |after-of|fset #[(|
|00003ee0| 70 6f 69 6e 74 29 20 22 | 08 84 0d 00 09 89 41 9f |point) "|......A.|
|00003ef0| a1 88 82 1b 00 c2 10 09 | 89 41 41 9f 09 41 40 41 |........|.AA..A@A|
|00003f00| a4 a1 88 09 0b a4 11 5c | 66 41 89 14 40 89 11 87 |.......\|fA..@...|
|00003f10| 22 20 5b 65 64 65 62 75 | 67 2d 72 65 61 64 2d 64 |" [edebu|g-read-d|
|00003f20| 6f 74 74 65 64 2d 6c 69 | 73 74 20 65 64 65 62 75 |otted-li|st edebu|
|00003f30| 67 2d 63 75 72 72 65 6e | 74 2d 6f 66 66 73 65 74 |g-curren|t-offset|
|00003f40| 20 6e 69 6c 20 70 6f 69 | 6e 74 20 65 64 65 62 75 | nil poi|nt edebu|
|00003f50| 67 2d 6f 66 66 73 65 74 | 73 2d 73 74 61 63 6b 5d |g-offset|s-stack]|
|00003f60| 20 34 5d 20 65 64 65 62 | 75 67 2d 69 67 6e 6f 72 | 4] edeb|ug-ignor|
|00003f70| 65 2d 6f 66 66 73 65 74 | 20 23 5b 6e 69 6c 20 22 |e-offset| #[nil "|
|00003f80| 08 89 41 41 a1 87 22 20 | 5b 65 64 65 62 75 67 2d |..AA.." |[edebug-|
|00003f90| 63 75 72 72 65 6e 74 2d | 6f 66 66 73 65 74 5d 20 |current-|offset] |
|00003fa0| 32 5d 20 65 64 65 62 75 | 67 2d 73 74 6f 72 69 6e |2] edebu|g-storin|
|00003fb0| 67 2d 6f 66 66 73 65 74 | 73 20 65 64 65 62 75 67 |g-offset|s edebug|
|00003fc0| 2d 66 6f 72 6d 2d 73 70 | 65 63 20 28 66 6f 72 6d |-form-sp|ec (form|
|00003fd0| 20 62 6f 64 79 29 20 6c | 69 73 70 2d 69 6e 64 65 | body) l|isp-inde|
|00003fe0| 6e 74 2d 68 6f 6f 6b 20 | 31 20 28 6d 61 63 72 6f |nt-hook |1 (macro|
|00003ff0| 20 2e 20 23 5b 28 70 6f | 69 6e 74 20 26 72 65 73 | . #[(po|int &res|
|00004000| 74 20 62 6f 64 79 29 20 | 22 c0 c1 c2 0b 44 5c 66 |t body) |"....D\f|
|00004010| 42 42 c5 42 42 87 22 20 | 5b 75 6e 77 69 6e 64 2d |BB.BB." |[unwind-|
|00004020| 70 72 6f 74 65 63 74 20 | 70 72 6f 67 6e 20 65 64 |protect |progn ed|
|00004030| 65 62 75 67 2d 73 74 6f | 72 65 2d 62 65 66 6f 72 |ebug-sto|re-befor|
|00004040| 65 2d 6f 66 66 73 65 74 | 20 70 6f 69 6e 74 20 62 |e-offset| point b|
|00004050| 6f 64 79 20 28 28 65 64 | 65 62 75 67 2d 73 74 6f |ody ((ed|ebug-sto|
|00004060| 72 65 2d 61 66 74 65 72 | 2d 6f 66 66 73 65 74 20 |re-after|-offset |
|00004070| 28 70 6f 69 6e 74 29 29 | 29 5d 20 34 5d 29 20 28 |(point))|)] 4]) (|
|00004080| 28 73 79 6d 62 6f 6c 20 | 2e 20 65 64 65 62 75 67 |(symbol |. edebug|
|00004090| 2d 72 65 61 64 2d 73 79 | 6d 62 6f 6c 29 20 28 6c |-read-sy|mbol) (l|
|000040a0| 70 61 72 65 6e 20 2e 20 | 65 64 65 62 75 67 2d 72 |paren . |edebug-r|
|000040b0| 65 61 64 2d 6c 69 73 74 | 29 20 28 73 74 72 69 6e |ead-list|) (strin|
|000040c0| 67 20 2e 20 65 64 65 62 | 75 67 2d 72 65 61 64 2d |g . edeb|ug-read-|
|000040d0| 73 74 72 69 6e 67 29 20 | 28 71 75 6f 74 65 20 2e |string) |(quote .|
|000040e0| 20 65 64 65 62 75 67 2d | 72 65 61 64 2d 71 75 6f | edebug-|read-quo|
|000040f0| 74 65 29 20 28 6c 62 72 | 61 63 6b 65 74 20 2e 20 |te) (lbr|acket . |
|00004100| 65 64 65 62 75 67 2d 72 | 65 61 64 2d 76 65 63 74 |edebug-r|ead-vect|
|00004110| 6f 72 29 20 28 68 61 73 | 68 20 2e 20 65 64 65 62 |or) (has|h . edeb|
|00004120| 75 67 2d 72 65 61 64 2d | 66 75 6e 63 74 69 6f 6e |ug-read-|function|
|00004130| 29 29 20 65 64 65 62 75 | 67 2d 72 65 61 64 2d 61 |)) edebu|g-read-a|
|00004140| 6c 69 73 74 20 65 64 65 | 62 75 67 2d 72 65 61 64 |list ede|bug-read|
|00004150| 2d 73 74 6f 72 69 6e 67 | 2d 6f 66 66 73 65 74 73 |-storing|-offsets|
|00004160| 20 23 5b 28 73 74 72 65 | 61 6d 29 20 22 c0 20 c1 | #[(stre|am) ". .|
|00004170| 89 1a 1b 1c c5 8e c6 60 | 21 88 5c 66 0e 07 9e 89 |.......`|!.\f....|
|00004180| 13 83 1e 00 0b 41 0e 08 | 21 82 5c 22 00 c9 0e 08 |.....A..|!.\"....|
|00004190| 21 2c 87 22 20 5b 65 64 | 65 62 75 67 2d 6e 65 78 |!,." [ed|ebug-nex|
|000041a0| 74 2d 74 6f 6b 65 6e 2d | 63 6c 61 73 73 20 6e 69 |t-token-|class ni|
|000041b0| 6c 20 65 64 65 62 75 67 | 2d 72 65 61 64 2d 64 6f |l edebug|-read-do|
|000041c0| 74 74 65 64 2d 6c 69 73 | 74 20 66 75 6e 63 20 63 |tted-lis|t func c|
|000041d0| 6c 61 73 73 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |lass ((b|yte-code|
|000041e0| 20 22 c0 60 21 87 22 20 | 5b 65 64 65 62 75 67 2d | ".`!." |[edebug-|
|000041f0| 73 74 6f 72 65 2d 61 66 | 74 65 72 2d 6f 66 66 73 |store-af|ter-offs|
|00004200| 65 74 5d 20 32 29 29 20 | 65 64 65 62 75 67 2d 73 |et] 2)) |edebug-s|
|00004210| 74 6f 72 65 2d 62 65 66 | 6f 72 65 2d 6f 66 66 73 |tore-bef|ore-offs|
|00004220| 65 74 20 65 64 65 62 75 | 67 2d 72 65 61 64 2d 61 |et edebu|g-read-a|
|00004230| 6c 69 73 74 20 73 74 72 | 65 61 6d 20 65 64 65 62 |list str|eam edeb|
|00004240| 75 67 2d 6f 72 69 67 69 | 6e 61 6c 2d 72 65 61 64 |ug-origi|nal-read|
|00004250| 5d 20 33 5d 20 65 64 65 | 62 75 67 2d 72 65 61 64 |] 3] ede|bug-read|
|00004260| 2d 73 79 6d 62 6f 6c 20 | 23 5b 28 73 74 72 65 61 |-symbol |#[(strea|
|00004270| 6d 29 20 22 c0 09 21 5c | 6e 68 48 c3 3d 84 0e 00 |m) "..!\|nhH.=...|
|00004280| c4 75 88 87 22 20 5b 65 | 64 65 62 75 67 2d 6f 72 |.u.." [e|debug-or|
|00004290| 69 67 69 6e 61 6c 2d 72 | 65 61 64 20 73 74 72 65 |iginal-r|ead stre|
|000042a0| 61 6d 20 65 64 65 62 75 | 67 2d 72 65 61 64 2d 73 |am edebu|g-read-s|
|000042b0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 73 79 6d 62 |yntax-ta|ble symb|
|000042c0| 6f 6c 20 2d 31 5d 20 33 | 5d 20 65 64 65 62 75 67 |ol -1] 3|] edebug|
|000042d0| 2d 72 65 61 64 2d 73 74 | 72 69 6e 67 20 23 5b 28 |-read-st|ring #[(|
|000042e0| 73 74 72 65 61 6d 29 20 | 22 c0 09 21 68 c2 55 84 |stream) |"..!h.U.|
|000042f0| 5c 66 00 c3 75 88 87 22 | 20 5b 65 64 65 62 75 67 |\f..u.."| [edebug|
|00004300| 2d 6f 72 69 67 69 6e 61 | 6c 2d 72 65 61 64 20 73 |-origina|l-read s|
|00004310| 74 72 65 61 6d 20 33 34 | 20 2d 31 5d 20 33 5d 20 |tream 34| -1] 3] |
|00004320| 65 64 65 62 75 67 2d 72 | 65 61 64 2d 71 75 6f 74 |edebug-r|ead-quot|
|00004330| 65 20 23 5b 28 73 74 72 | 65 61 6d 29 20 22 c0 75 |e #[(str|eam) ".u|
|00004340| 88 c1 8e c2 60 21 88 29 | c3 c4 0d 21 44 87 22 20 |....`!.)|...!D." |
|00004350| 5b 31 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |[1 ((byt|e-code "|
|00004360| c0 60 21 87 22 20 5b 65 | 64 65 62 75 67 2d 73 74 |.`!." [e|debug-st|
|00004370| 6f 72 65 2d 61 66 74 65 | 72 2d 6f 66 66 73 65 74 |ore-afte|r-offset|
|00004380| 5d 20 32 29 29 20 65 64 | 65 62 75 67 2d 73 74 6f |] 2)) ed|ebug-sto|
|00004390| 72 65 2d 62 65 66 6f 72 | 65 2d 6f 66 66 73 65 74 |re-befor|e-offset|
|000043a0| 20 71 75 6f 74 65 20 65 | 64 65 62 75 67 2d 72 65 | quote e|debug-re|
|000043b0| 61 64 2d 73 74 6f 72 69 | 6e 67 2d 6f 66 66 73 65 |ad-stori|ng-offse|
|000043c0| 74 73 20 73 74 72 65 61 | 6d 5d 20 33 5d 20 65 64 |ts strea|m] 3] ed|
|000043d0| 65 62 75 67 2d 72 65 61 | 64 2d 66 75 6e 63 74 69 |ebug-rea|d-functi|
|000043e0| 6f 6e 20 23 5b 28 73 74 | 72 65 61 6d 29 20 22 c0 |on #[(st|ream) ".|
|000043f0| 75 88 67 c1 55 84 0d 00 | c2 c3 21 88 c0 75 88 c4 |u.g.U...|..!..u..|
|00004400| 8e c5 60 21 88 c6 c7 21 | 83 20 00 c8 82 21 00 c9 |..`!...!|. ...!..|
|00004410| 29 ca 0e 0b 21 44 87 22 | 20 5b 31 20 33 39 20 65 |)...!D."| [1 39 e|
|00004420| 64 65 62 75 67 2d 73 79 | 6e 74 61 78 2d 65 72 72 |debug-sy|ntax-err|
|00004430| 6f 72 20 22 42 61 64 20 | 63 68 61 72 22 20 28 28 |or "Bad |char" ((|
|00004440| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 60 21 87 22 |byte-cod|e ".`!."|
|00004450| 20 5b 65 64 65 62 75 67 | 2d 73 74 6f 72 65 2d 61 | [edebug|-store-a|
|00004460| 66 74 65 72 2d 6f 66 66 | 73 65 74 5d 20 32 29 29 |fter-off|set] 2))|
|00004470| 20 65 64 65 62 75 67 2d | 73 74 6f 72 65 2d 62 65 | edebug-|store-be|
|00004480| 66 6f 72 65 2d 6f 66 66 | 73 65 74 20 66 65 61 74 |fore-off|set feat|
|00004490| 75 72 65 70 20 63 6c 20 | 66 75 6e 63 74 69 6f 6e |urep cl |function|
|000044a0| 2a 20 66 75 6e 63 74 69 | 6f 6e 20 65 64 65 62 75 |* functi|on edebu|
|000044b0| 67 2d 72 65 61 64 2d 73 | 74 6f 72 69 6e 67 2d 6f |g-read-s|toring-o|
|000044c0| 66 66 73 65 74 73 20 73 | 74 72 65 61 6d 5d 20 33 |ffsets s|tream] 3|
|000044d0| 5d 20 65 64 65 62 75 67 | 2d 72 65 61 64 2d 6c 69 |] edebug|-read-li|
|000044e0| 73 74 20 23 5b 28 73 74 | 72 65 61 6d 29 20 22 c0 |st #[(st|ream) ".|
|000044f0| 75 88 c1 1a c3 20 c4 3e | 84 16 00 c5 0e 06 21 5c |u.... .>|......!\|
|00004500| 6e 42 12 82 05 00 5c 6e | 9f 12 c3 20 c7 3d 83 42 |nB....\n|... .=.B|
|00004510| 00 c1 1e 08 c0 75 88 c5 | 0e 06 21 16 08 5c 6e 0e |.....u..|..!..\n.|
|00004520| 08 a4 88 c3 20 c9 3d 84 | 3c 00 ca cb 21 88 0e 08 |.... .=.|<...!...|
|00004530| 3c 16 5c 66 29 5c 6e 29 | c0 75 88 87 22 20 5b 31 |<.\f)\n)|.u.." [1|
|00004540| 20 6e 69 6c 20 65 6c 65 | 6d 65 6e 74 73 20 65 64 | nil ele|ments ed|
|00004550| 65 62 75 67 2d 6e 65 78 | 74 2d 74 6f 6b 65 6e 2d |ebug-nex|t-token-|
|00004560| 63 6c 61 73 73 20 28 72 | 70 61 72 65 6e 20 64 6f |class (r|paren do|
|00004570| 74 29 20 65 64 65 62 75 | 67 2d 72 65 61 64 2d 73 |t) edebu|g-read-s|
|00004580| 74 6f 72 69 6e 67 2d 6f | 66 66 73 65 74 73 20 73 |toring-o|ffsets s|
|00004590| 74 72 65 61 6d 20 64 6f | 74 20 64 6f 74 74 65 64 |tream do|t dotted|
|000045a0| 2d 66 6f 72 6d 20 72 70 | 61 72 65 6e 20 65 64 65 |-form rp|aren ede|
|000045b0| 62 75 67 2d 73 79 6e 74 | 61 78 2d 65 72 72 6f 72 |bug-synt|ax-error|
|000045c0| 20 22 45 78 70 65 63 74 | 65 64 20 60 29 27 22 20 | "Expect|ed `)'" |
|000045d0| 65 64 65 62 75 67 2d 72 | 65 61 64 2d 64 6f 74 74 |edebug-r|ead-dott|
|000045e0| 65 64 2d 6c 69 73 74 5d | 20 32 5d 20 65 64 65 62 |ed-list]| 2] edeb|
|000045f0| 75 67 2d 72 65 61 64 2d | 76 65 63 74 6f 72 20 23 |ug-read-|vector #|
|00004600| 5b 28 73 74 72 65 61 6d | 29 20 22 c0 75 88 c1 1a |[(stream|) ".u...|
|00004610| c3 20 c4 3d 84 16 00 c5 | 0e 06 21 5c 6e 42 12 82 |. .=....|..!\nB..|
|00004620| 05 00 c7 c8 5c 6e 9f 5c | 22 29 c0 75 88 87 22 20 |....\n.\|").u.." |
|00004630| 5b 31 20 6e 69 6c 20 65 | 6c 65 6d 65 6e 74 73 20 |[1 nil e|lements |
|00004640| 65 64 65 62 75 67 2d 6e | 65 78 74 2d 74 6f 6b 65 |edebug-n|ext-toke|
|00004650| 6e 2d 63 6c 61 73 73 20 | 72 62 72 61 63 6b 65 74 |n-class |rbracket|
|00004660| 20 65 64 65 62 75 67 2d | 72 65 61 64 2d 73 74 6f | edebug-|read-sto|
|00004670| 72 69 6e 67 2d 6f 66 66 | 73 65 74 73 20 73 74 72 |ring-off|sets str|
|00004680| 65 61 6d 20 61 70 70 6c | 79 20 76 65 63 74 6f 72 |eam appl|y vector|
|00004690| 5d 20 33 5d 20 62 6f 75 | 6e 64 70 20 65 64 65 62 |] 3] bou|ndp edeb|
|000046a0| 75 67 2d 64 6f 74 74 65 | 64 2d 73 70 65 63 20 65 |ug-dotte|d-spec e|
|000046b0| 64 65 62 75 67 2d 6e 65 | 77 2d 63 75 72 73 6f 72 |debug-ne|w-cursor|
|000046c0| 20 23 5b 28 65 78 70 72 | 65 73 73 69 6f 6e 73 20 | #[(expr|essions |
|000046d0| 6f 66 66 73 65 74 73 29 | 20 22 c0 09 21 83 0b 00 |offsets)| "..!...|
|000046e0| c2 09 c3 5c 22 11 09 5c | 66 42 87 22 20 5b 76 65 |...\"..\|fB." [ve|
|000046f0| 63 74 6f 72 70 20 65 78 | 70 72 65 73 73 69 6f 6e |ctorp ex|pression|
|00004700| 73 20 61 70 70 65 6e 64 | 20 6e 69 6c 20 6f 66 66 |s append| nil off|
|00004710| 73 65 74 73 5d 20 33 5d | 20 65 64 65 62 75 67 2d |sets] 3]| edebug-|
|00004720| 73 65 74 2d 63 75 72 73 | 6f 72 20 23 5b 28 63 75 |set-curs|or #[(cu|
|00004730| 72 73 6f 72 20 65 78 70 | 72 65 73 73 69 6f 6e 73 |rsor exp|ressions|
|00004740| 20 6f 66 66 73 65 74 73 | 29 20 22 08 09 a0 88 08 | offsets|) ".....|
|00004750| 5c 6e a1 88 08 87 22 20 | 5b 63 75 72 73 6f 72 20 |\n...." |[cursor |
|00004760| 65 78 70 72 65 73 73 69 | 6f 6e 73 20 6f 66 66 73 |expressi|ons offs|
|00004770| 65 74 73 5d 20 32 5d 20 | 65 64 65 62 75 67 2d 63 |ets] 2] |edebug-c|
|00004780| 75 72 73 6f 72 2d 65 78 | 70 72 65 73 73 69 6f 6e |ursor-ex|pression|
|00004790| 73 20 23 5b 28 63 75 72 | 73 6f 72 29 20 22 08 40 |s #[(cur|sor) ".@|
|000047a0| 87 22 20 5b 63 75 72 73 | 6f 72 5d 20 31 5d 20 65 |." [curs|or] 1] e|
|000047b0| 64 65 62 75 67 2d 63 75 | 72 73 6f 72 2d 6f 66 66 |debug-cu|rsor-off|
|000047c0| 73 65 74 73 20 23 5b 28 | 63 75 72 73 6f 72 29 20 |sets #[(|cursor) |
|000047d0| 22 08 41 87 22 20 5b 63 | 75 72 73 6f 72 5d 20 31 |".A." [c|ursor] 1|
|000047e0| 5d 20 65 64 65 62 75 67 | 2d 65 6d 70 74 79 2d 63 |] edebug|-empty-c|
|000047f0| 75 72 73 6f 72 20 23 5b | 28 63 75 72 73 6f 72 29 |ursor #[|(cursor)|
|00004800| 20 22 08 40 3f 87 22 20 | 5b 63 75 72 73 6f 72 5d | ".@?." |[cursor]|
|00004810| 20 31 5d 20 65 64 65 62 | 75 67 2d 74 6f 70 2d 65 | 1] edeb|ug-top-e|
|00004820| 6c 65 6d 65 6e 74 20 23 | 5b 28 63 75 72 73 6f 72 |lement #|[(cursor|
|00004830| 29 20 22 08 40 40 87 22 | 20 5b 63 75 72 73 6f 72 |) ".@@."| [cursor|
|00004840| 5d 20 31 5d 20 65 64 65 | 62 75 67 2d 74 6f 70 2d |] 1] ede|bug-top-|
|00004850| 65 6c 65 6d 65 6e 74 2d | 72 65 71 75 69 72 65 64 |element-|required|
|00004860| 20 23 5b 28 63 75 72 73 | 6f 72 20 26 72 65 73 74 | #[(curs|or &rest|
|00004870| 20 65 72 72 6f 72 29 20 | 22 08 83 09 00 c1 5c 6e | error) |".....\n|
|00004880| c3 5c 22 88 5c 6e 89 1a | 40 29 84 17 00 c4 c1 5c |.\".\n..|@).....\|
|00004890| 6e 0d 23 88 5c 6e 89 1a | 40 40 29 87 22 20 5b 65 |n.#.\n..|@@)." [e|
|000048a0| 64 65 62 75 67 2d 64 6f | 74 74 65 64 2d 73 70 65 |debug-do|tted-spe|
|000048b0| 63 20 65 64 65 62 75 67 | 2d 6e 6f 2d 6d 61 74 63 |c edebug|-no-matc|
|000048c0| 68 20 63 75 72 73 6f 72 | 20 22 44 6f 74 20 65 78 |h cursor| "Dot ex|
|000048d0| 70 65 63 74 65 64 2e 22 | 20 61 70 70 6c 79 20 65 |pected."| apply e|
|000048e0| 72 72 6f 72 5d 20 35 5d | 20 65 64 65 62 75 67 2d |rror] 5]| edebug-|
|000048f0| 74 6f 70 2d 6f 66 66 73 | 65 74 20 23 5b 28 63 75 |top-offs|et #[(cu|
|00004900| 72 73 6f 72 29 20 22 08 | 41 40 87 22 20 5b 63 75 |rsor) ".|A@." [cu|
|00004910| 72 73 6f 72 5d 20 31 5d | 20 65 64 65 62 75 67 2d |rsor] 1]| edebug-|
|00004920| 6d 6f 76 65 2d 63 75 72 | 73 6f 72 20 23 5b 28 63 |move-cur|sor #[(c|
|00004930| 75 72 73 6f 72 29 20 22 | 08 89 18 40 29 84 0d 00 |ursor) "|...@)...|
|00004940| c1 08 c2 5c 22 88 08 89 | 40 41 a0 88 08 89 41 41 |...\"...|@A....AA|
|00004950| a1 88 08 87 22 20 5b 63 | 75 72 73 6f 72 20 65 64 |...." [c|ursor ed|
|00004960| 65 62 75 67 2d 6e 6f 2d | 6d 61 74 63 68 20 22 4e |ebug-no-|match "N|
|00004970| 6f 74 20 65 6e 6f 75 67 | 68 20 61 72 67 75 6d 65 |ot enoug|h argume|
|00004980| 6e 74 73 2e 22 5d 20 34 | 5d 20 65 64 65 62 75 67 |nts."] 4|] edebug|
|00004990| 2d 62 65 66 6f 72 65 2d | 6f 66 66 73 65 74 20 23 |-before-|offset #|
|000049a0| 5b 28 63 75 72 73 6f 72 | 29 20 22 08 89 18 41 29 |[(cursor|) "...A)|
|000049b0| 89 19 3a 83 11 00 09 40 | 40 82 13 00 09 53 29 87 |..:....@|@....S).|
|000049c0| 22 20 5b 63 75 72 73 6f | 72 20 6f 66 66 73 65 74 |" [curso|r offset|
|000049d0| 5d 20 32 5d 20 65 64 65 | 62 75 67 2d 61 66 74 65 |] 2] ede|bug-afte|
|000049e0| 72 2d 6f 66 66 73 65 74 | 20 23 5b 28 63 75 72 73 |r-offset| #[(curs|
|000049f0| 6f 72 29 20 22 08 89 18 | 41 40 29 89 19 3a 83 13 |or) "...|A@)..:..|
|00004a00| 00 09 41 89 11 82 08 00 | 09 29 87 22 20 5b 63 75 |..A.....|.)." [cu|
|00004a10| 72 73 6f 72 20 6f 66 66 | 73 65 74 5d 20 32 5d 20 |rsor off|set] 2] |
|00004a20| 65 64 65 62 75 67 2d 67 | 61 74 65 20 65 64 65 62 |edebug-g|ate edeb|
|00004a30| 75 67 2d 64 65 66 2d 6e | 61 6d 65 20 65 64 65 62 |ug-def-n|ame edeb|
|00004a40| 75 67 2d 6f 6c 64 2d 64 | 65 66 2d 6e 61 6d 65 20 |ug-old-d|ef-name |
|00004a50| 65 64 65 62 75 67 2d 65 | 72 72 6f 72 2d 70 6f 69 |edebug-e|rror-poi|
|00004a60| 6e 74 20 65 64 65 62 75 | 67 2d 62 65 73 74 2d 65 |nt edebu|g-best-e|
|00004a70| 72 72 6f 72 20 65 64 65 | 62 75 67 2d 72 65 61 64 |rror ede|bug-read|
|00004a80| 2d 61 6e 64 2d 6d 61 79 | 62 65 2d 77 72 61 70 2d |-and-may|be-wrap-|
|00004a90| 66 6f 72 6d 20 23 5b 6e | 69 6c 20 22 c0 c1 21 88 |form #[n|il "..!.|
|00004aa0| c2 11 c2 89 89 89 89 89 | 89 89 89 0b c4 5c 5c 0d |........|.....\\.|
|00004ab0| c6 5c 5c 1d 1b 1e 07 1e | 08 1e 09 1e 5c 6e 1e 0b |.\\.....|....\n..|
|00004ac0| 1e 5c 66 1e 0d 1e 0e 1e | 0f c7 d0 8d 89 16 07 83 |.\f.....|........|
|00004ad0| 38 00 d1 d2 0e 07 5c 22 | 88 0e 0f 2e 0b 87 22 20 |8.....\"|......" |
|00004ae0| 5b 72 75 6e 2d 68 6f 6f | 6b 73 20 65 64 65 62 75 |[run-hoo|ks edebu|
|00004af0| 67 2d 73 65 74 75 70 2d | 68 6f 6f 6b 20 6e 69 6c |g-setup-|hook nil|
|00004b00| 20 6d 61 78 2d 6c 69 73 | 70 2d 65 76 61 6c 2d 64 | max-lis|p-eval-d|
|00004b10| 65 70 74 68 20 38 30 30 | 20 6d 61 78 2d 73 70 65 |epth 800| max-spe|
|00004b20| 63 70 64 6c 2d 73 69 7a | 65 20 32 30 30 30 20 6e |cpdl-siz|e 2000 n|
|00004b30| 6f 2d 6d 61 74 63 68 20 | 65 64 65 62 75 67 2d 65 |o-match |edebug-e|
|00004b40| 72 72 6f 72 2d 70 6f 69 | 6e 74 20 65 64 65 62 75 |rror-poi|nt edebu|
|00004b50| 67 2d 62 65 73 74 2d 65 | 72 72 6f 72 20 65 64 65 |g-best-e|rror ede|
|00004b60| 62 75 67 2d 67 61 74 65 | 20 65 64 65 62 75 67 2d |bug-gate| edebug-|
|00004b70| 26 72 65 73 74 20 65 64 | 65 62 75 67 2d 26 6f 70 |&rest ed|ebug-&op|
|00004b80| 74 69 6f 6e 61 6c 20 65 | 64 65 62 75 67 2d 64 65 |tional e|debug-de|
|00004b90| 66 2d 6e 61 6d 65 20 65 | 64 65 62 75 67 2d 74 6f |f-name e|debug-to|
|00004ba0| 70 2d 77 69 6e 64 6f 77 | 2d 64 61 74 61 20 72 65 |p-window|-data re|
|00004bb0| 73 75 6c 74 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |sult (by|te-code |
|00004bc0| 22 c0 20 11 c2 87 22 20 | 5b 65 64 65 62 75 67 2d |". ..." |[edebug-|
|00004bd0| 72 65 61 64 2d 61 6e 64 | 2d 6d 61 79 62 65 2d 77 |read-and|-maybe-w|
|00004be0| 72 61 70 2d 66 6f 72 6d | 31 20 72 65 73 75 6c 74 |rap-form|1 result|
|00004bf0| 20 6e 69 6c 5d 20 31 29 | 20 61 70 70 6c 79 20 65 | nil] 1)| apply e|
|00004c00| 64 65 62 75 67 2d 73 79 | 6e 74 61 78 2d 65 72 72 |debug-sy|ntax-err|
|00004c10| 6f 72 5d 20 31 33 5d 20 | 65 64 65 62 75 67 2d 72 |or] 13] |edebug-r|
|00004c20| 65 61 64 2d 61 6e 64 2d | 6d 61 79 62 65 2d 77 72 |ead-and-|maybe-wr|
|00004c30| 61 70 2d 66 6f 72 6d 31 | 20 23 5b 6e 69 6c 20 22 |ap-form1| #[nil "|
|00004c40| c0 89 89 89 89 89 89 19 | 1a 1b 1c 1d 1e 06 1e 07 |........|........|
|00004c50| 8a c8 20 c9 3d 83 55 00 | ca 75 88 c8 20 cb 3d 83 |.. .=.U.|.u.. .=.|
|00004c60| 55 00 cc 70 21 89 16 06 | 39 85 30 00 cd 0e 06 21 |U..p!...|9.0....!|
|00004c70| 89 16 07 3c 85 3c 00 0e | 07 40 ce 3d 89 15 85 54 |...<.<..|.@.=...T|
|00004c80| 00 0e 07 41 40 cf 3d 85 | 54 00 c8 20 cb 3d 85 54 |...A@.=.|T.. .=.T|
|00004c90| 00 cc 70 21 14 29 0d 83 | 95 00 0e 10 84 64 00 0e |..p!.)..|.....d..|
|00004ca0| 11 83 89 00 d2 d3 70 21 | 43 0b 43 5c 22 1e 14 d5 |......p!|C.C\"...|
|00004cb0| 0e 14 d6 0e 14 21 d7 0e | 14 21 53 d8 0e 06 21 0e |.....!..|.!S...!.|
|00004cc0| 07 41 42 43 24 40 29 82 | b7 00 d9 5c 66 da db 20 |.ABC$@).|...\f.. |
|00004cd0| 23 88 dc 20 82 b7 00 0e | 11 83 b5 00 d2 d3 70 21 |#.. ....|......p!|
|00004ce0| 43 0b 43 5c 22 1e 14 d5 | 0e 14 d6 0e 14 21 d7 0e |C.C\"...|.....!..|
|00004cf0| 14 21 c0 24 29 82 b7 00 | dc 20 2e 07 87 22 20 5b |.!.$)...|. ..." [|
|00004d00| 6e 69 6c 20 65 64 65 62 | 75 67 2d 63 75 72 72 65 |nil edeb|ug-curre|
|00004d10| 6e 74 2d 6f 66 66 73 65 | 74 20 65 64 65 62 75 67 |nt-offse|t edebug|
|00004d20| 2d 6f 66 66 73 65 74 73 | 2d 73 74 61 63 6b 20 65 |-offsets|-stack e|
|00004d30| 64 65 62 75 67 2d 6f 66 | 66 73 65 74 73 20 64 65 |debug-of|fsets de|
|00004d40| 66 2d 6e 61 6d 65 20 64 | 65 66 69 6e 69 6e 67 2d |f-name d|efining-|
|00004d50| 66 6f 72 6d 2d 70 20 64 | 65 66 2d 6b 69 6e 64 20 |form-p d|ef-kind |
|00004d60| 73 70 65 63 20 65 64 65 | 62 75 67 2d 6e 65 78 74 |spec ede|bug-next|
|00004d70| 2d 74 6f 6b 65 6e 2d 63 | 6c 61 73 73 20 6c 70 61 |-token-c|lass lpa|
|00004d80| 72 65 6e 20 31 20 73 79 | 6d 62 6f 6c 20 65 64 65 |ren 1 sy|mbol ede|
|00004d90| 62 75 67 2d 6f 72 69 67 | 69 6e 61 6c 2d 72 65 61 |bug-orig|inal-rea|
|00004da0| 64 20 67 65 74 2d 65 64 | 65 62 75 67 2d 73 70 65 |d get-ed|ebug-spe|
|00004db0| 63 20 26 64 65 66 69 6e | 65 20 6e 61 6d 65 20 65 |c &defin|e name e|
|00004dc0| 64 65 62 75 67 2d 61 6c | 6c 2d 64 65 66 73 20 65 |debug-al|l-defs e|
|00004dd0| 64 65 62 75 67 2d 61 6c | 6c 2d 66 6f 72 6d 73 20 |debug-al|l-forms |
|00004de0| 65 64 65 62 75 67 2d 6e | 65 77 2d 63 75 72 73 6f |edebug-n|ew-curso|
|00004df0| 72 20 65 64 65 62 75 67 | 2d 72 65 61 64 2d 73 74 |r edebug|-read-st|
|00004e00| 6f 72 69 6e 67 2d 6f 66 | 66 73 65 74 73 20 63 75 |oring-of|fsets cu|
|00004e10| 72 73 6f 72 20 65 64 65 | 62 75 67 2d 6d 61 6b 65 |rsor ede|bug-make|
|00004e20| 2d 66 6f 72 6d 2d 77 72 | 61 70 70 65 72 20 65 64 |-form-wr|apper ed|
|00004e30| 65 62 75 67 2d 62 65 66 | 6f 72 65 2d 6f 66 66 73 |ebug-bef|ore-offs|
|00004e40| 65 74 20 65 64 65 62 75 | 67 2d 61 66 74 65 72 2d |et edebu|g-after-|
|00004e50| 6f 66 66 73 65 74 20 73 | 79 6d 62 6f 6c 2d 6e 61 |offset s|ymbol-na|
|00004e60| 6d 65 20 70 75 74 20 65 | 64 65 62 75 67 20 70 6f |me put e|debug po|
|00004e70| 69 6e 74 2d 6d 61 72 6b | 65 72 20 65 64 65 62 75 |int-mark|er edebu|
|00004e80| 67 2d 72 65 61 64 2d 73 | 65 78 70 5d 20 38 5d 20 |g-read-s|exp] 8] |
|00004e90| 65 64 65 62 75 67 2d 69 | 6e 74 65 72 61 63 74 69 |edebug-i|nteracti|
|00004ea0| 76 65 2d 70 2d 6e 61 6d | 65 20 23 5b 6e 69 6c 20 |ve-p-nam|e #[nil |
|00004eb0| 22 c0 c1 c2 0b 5c 22 21 | 87 22 20 5b 69 6e 74 65 |"....\"!|." [inte|
|00004ec0| 72 6e 20 66 6f 72 6d 61 | 74 20 22 65 64 65 62 75 |rn forma|t "edebu|
|00004ed0| 67 2d 25 73 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |g-%s-int|eractive|
|00004ee0| 2d 70 22 20 65 64 65 62 | 75 67 2d 64 65 66 2d 6e |-p" edeb|ug-def-n|
|00004ef0| 61 6d 65 5d 20 34 5d 5d | 20 35 29 0a 28 64 65 66 |ame] 4]]| 5).(def|
|00004f00| 61 6c 69 61 73 20 27 65 | 64 65 62 75 67 2d 77 72 |alias 'e|debug-wr|
|00004f10| 61 70 2d 64 65 66 2d 62 | 6f 64 79 20 23 5b 28 66 |ap-def-b|ody #[(f|
|00004f20| 6f 72 6d 73 29 20 22 08 | 83 0f 00 c1 c2 20 c3 42 |orms) ".|..... .B|
|00004f30| 43 c4 0d 21 45 87 c4 0d | 21 87 22 20 5b 65 64 65 |C..!E...|!." [ede|
|00004f40| 62 75 67 2d 64 65 66 2d | 69 6e 74 65 72 61 63 74 |bug-def-|interact|
|00004f50| 69 76 65 20 6c 65 74 20 | 65 64 65 62 75 67 2d 69 |ive let |edebug-i|
|00004f60| 6e 74 65 72 61 63 74 69 | 76 65 2d 70 2d 6e 61 6d |nteracti|ve-p-nam|
|00004f70| 65 20 28 28 69 6e 74 65 | 72 61 63 74 69 76 65 2d |e ((inte|ractive-|
|00004f80| 70 29 29 20 65 64 65 62 | 75 67 2d 6d 61 6b 65 2d |p)) edeb|ug-make-|
|00004f90| 65 6e 74 65 72 2d 77 72 | 61 70 70 65 72 20 66 6f |enter-wr|apper fo|
|00004fa0| 72 6d 73 5d 20 34 20 22 | 5c 0a 57 72 61 70 20 74 |rms] 4 "|\.Wrap t|
|00004fb0| 68 65 20 46 4f 52 4d 53 | 20 6f 66 20 61 20 64 65 |he FORMS| of a de|
|00004fc0| 66 69 6e 69 74 69 6f 6e | 20 62 6f 64 79 2e 22 5d |finition| body."]|
|00004fd0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00004fe0| c2 5c 22 88 c0 c3 c4 5c | 22 88 c0 c5 c6 5c 22 88 |.\"....\|"....\".|
|00004ff0| c0 c7 c8 5c 22 87 22 20 | 5b 64 65 66 61 6c 69 61 |...\"." |[defalia|
|00005000| 73 20 65 64 65 62 75 67 | 2d 6d 61 6b 65 2d 65 6e |s edebug|-make-en|
|00005010| 74 65 72 2d 77 72 61 70 | 70 65 72 20 23 5b 28 66 |ter-wrap|per #[(f|
|00005020| 6f 72 6d 73 29 20 22 08 | 86 0b 00 09 86 0b 00 c2 |orms) ".|........|
|00005030| c3 21 10 c4 c5 08 44 0e | 06 85 1a 00 c7 0e 08 9f |.!....D.|........|
|00005040| 42 c9 ca cb 0e 5c 66 42 | 42 44 46 87 22 20 5b 65 |B....\fB|BDF." [e|
|00005050| 64 65 62 75 67 2d 64 65 | 66 2d 6e 61 6d 65 20 65 |debug-de|f-name e|
|00005060| 64 65 62 75 67 2d 6f 6c | 64 2d 64 65 66 2d 6e 61 |debug-ol|d-def-na|
|00005070| 6d 65 20 67 65 6e 73 79 | 6d 20 22 65 64 65 62 75 |me gensy|m "edebu|
|00005080| 67 2d 61 6e 6f 6e 22 20 | 65 64 65 62 75 67 2d 65 |g-anon" |edebug-e|
|00005090| 6e 74 65 72 20 71 75 6f | 74 65 20 65 64 65 62 75 |nter quo|te edebu|
|000050a0| 67 2d 69 6e 73 69 64 65 | 2d 66 75 6e 63 20 6c 69 |g-inside|-func li|
|000050b0| 73 74 20 65 64 65 62 75 | 67 2d 64 65 66 2d 61 72 |st edebu|g-def-ar|
|000050c0| 67 73 20 66 75 6e 63 74 | 69 6f 6e 20 6c 61 6d 62 |gs funct|ion lamb|
|000050d0| 64 61 20 6e 69 6c 20 66 | 6f 72 6d 73 5d 20 37 5d |da nil f|orms] 7]|
|000050e0| 20 65 64 65 62 75 67 2d | 69 6e 63 2d 6f 66 66 73 | edebug-|inc-offs|
|000050f0| 65 74 20 23 5b 28 6f 66 | 66 73 65 74 29 20 22 08 |et #[(of|fset) ".|
|00005100| 09 5c 6e 5a 0b 42 13 08 | 54 10 87 22 20 5b 65 64 |.\nZ.B..|T.." [ed|
|00005110| 65 62 75 67 2d 6f 66 66 | 73 65 74 2d 69 6e 64 65 |ebug-off|set-inde|
|00005120| 78 20 6f 66 66 73 65 74 | 20 65 64 65 62 75 67 2d |x offset| edebug-|
|00005130| 66 6f 72 6d 2d 62 65 67 | 69 6e 2d 6d 61 72 6b 65 |form-beg|in-marke|
|00005140| 72 20 65 64 65 62 75 67 | 2d 6f 66 66 73 65 74 2d |r edebug|-offset-|
|00005150| 6c 69 73 74 5d 20 33 5d | 20 65 64 65 62 75 67 2d |list] 3]| edebug-|
|00005160| 6d 61 6b 65 2d 62 65 66 | 6f 72 65 2d 61 6e 64 2d |make-bef|ore-and-|
|00005170| 61 66 74 65 72 2d 66 6f | 72 6d 20 23 5b 28 62 65 |after-fo|rm #[(be|
|00005180| 66 6f 72 65 2d 69 6e 64 | 65 78 20 66 6f 72 6d 20 |fore-ind|ex form |
|00005190| 61 66 74 65 72 2d 69 6e | 64 65 78 29 20 22 c0 c1 |after-in|dex) "..|
|000051a0| 5c 6e 44 0b 5c 66 46 87 | 22 20 5b 65 64 65 62 75 |\nD.\fF.|" [edebu|
|000051b0| 67 2d 61 66 74 65 72 20 | 65 64 65 62 75 67 2d 62 |g-after |edebug-b|
|000051c0| 65 66 6f 72 65 20 62 65 | 66 6f 72 65 2d 69 6e 64 |efore be|fore-ind|
|000051d0| 65 78 20 61 66 74 65 72 | 2d 69 6e 64 65 78 20 66 |ex after|-index f|
|000051e0| 6f 72 6d 5d 20 34 5d 20 | 65 64 65 62 75 67 2d 6d |orm] 4] |edebug-m|
|000051f0| 61 6b 65 2d 61 66 74 65 | 72 2d 66 6f 72 6d 20 23 |ake-afte|r-form #|
|00005200| 5b 28 66 6f 72 6d 20 61 | 66 74 65 72 2d 69 6e 64 |[(form a|fter-ind|
|00005210| 65 78 29 20 22 c0 c1 5c | 6e 0b 46 87 22 20 5b 65 |ex) "..\|n.F." [e|
|00005220| 64 65 62 75 67 2d 61 66 | 74 65 72 20 30 20 61 66 |debug-af|ter 0 af|
|00005230| 74 65 72 2d 69 6e 64 65 | 78 20 66 6f 72 6d 5d 20 |ter-inde|x form] |
|00005240| 34 5d 5d 20 33 29 0a 28 | 64 65 66 61 6c 69 61 73 |4]] 3).(|defalias|
|00005250| 20 27 65 64 65 62 75 67 | 2d 75 6e 77 72 61 70 20 | 'edebug|-unwrap |
|00005260| 23 5b 28 73 65 78 70 29 | 20 22 08 3a 83 32 00 08 |#[(sexp)| ".:.2..|
|00005270| 40 c1 3d 83 10 00 c2 08 | 38 87 08 40 c3 3d 83 30 |@.=.....|8..@.=.0|
|00005280| 00 c2 08 38 41 40 41 41 | 89 1c 47 c5 56 83 2c 00 |...8A@AA|..G.V.,.|
|00005290| c6 5c 66 42 82 2e 00 5c | 66 40 29 87 08 87 08 87 |.\fB...\|f@).....|
|000052a0| 22 20 5b 73 65 78 70 20 | 65 64 65 62 75 67 2d 61 |" [sexp |edebug-a|
|000052b0| 66 74 65 72 20 33 20 65 | 64 65 62 75 67 2d 65 6e |fter 3 e|debug-en|
|000052c0| 74 65 72 20 66 6f 72 6d | 73 20 31 20 70 72 6f 67 |ter form|s 1 prog|
|000052d0| 6e 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |n] 3 "\.|Return t|
|000052e0| 68 65 20 75 6e 77 72 61 | 70 70 65 64 20 53 45 58 |he unwra|pped SEX|
|000052f0| 50 20 6f 72 20 72 65 74 | 75 72 6e 20 69 74 20 61 |P or ret|urn it a|
|00005300| 73 20 69 73 20 69 66 20 | 69 74 20 69 73 20 6e 6f |s is if |it is no|
|00005310| 74 20 77 72 61 70 70 65 | 64 2e 0a 54 68 65 20 53 |t wrappe|d..The S|
|00005320| 45 58 50 20 6d 69 67 68 | 74 20 62 65 20 74 68 65 |EXP migh|t be the|
|00005330| 20 72 65 73 75 6c 74 20 | 6f 66 20 77 72 61 70 70 | result |of wrapp|
|00005340| 69 6e 67 20 61 20 62 6f | 64 79 2c 20 77 68 69 63 |ing a bo|dy, whic|
|00005350| 68 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 0a |h is a l|ist of .|
|00005360| 65 78 70 72 65 73 73 69 | 6f 6e 73 3b 20 61 20 60 |expressi|ons; a `|
|00005370| 70 72 6f 67 6e 27 20 66 | 6f 72 6d 20 77 69 6c 6c |progn' f|orm will|
|00005380| 20 62 65 20 72 65 74 75 | 72 6e 65 64 20 65 6e 63 | be retu|rned enc|
|00005390| 6c 6f 73 69 6e 67 20 74 | 68 65 73 65 20 66 6f 72 |losing t|hese for|
|000053a0| 6d 73 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ms."]).(|defalias|
|000053b0| 20 27 65 64 65 62 75 67 | 2d 75 6e 77 72 61 70 2a | 'edebug|-unwrap*|
|000053c0| 20 23 5b 28 73 65 78 70 | 29 20 22 c0 09 21 1a 09 | #[(sexp|) "..!..|
|000053d0| 5c 6e 3d 84 13 00 5c 6e | 11 c0 09 21 12 82 04 00 |\n=...\n|...!....|
|000053e0| 5c 6e 3a 83 1f 00 c3 c4 | 5c 6e 5c 22 82 20 00 5c |\n:.....|\n\". .\|
|000053f0| 6e 29 87 22 20 5b 65 64 | 65 62 75 67 2d 75 6e 77 |n)." [ed|ebug-unw|
|00005400| 72 61 70 20 73 65 78 70 | 20 6e 65 77 2d 73 65 78 |rap sexp| new-sex|
|00005410| 70 20 6d 61 70 63 61 72 | 20 65 64 65 62 75 67 2d |p mapcar| edebug-|
|00005420| 75 6e 77 72 61 70 2a 5d | 20 33 20 22 5c 0a 52 65 |unwrap*]| 3 "\.Re|
|00005430| 74 75 72 6e 20 74 68 65 | 20 73 65 78 70 20 72 65 |turn the| sexp re|
|00005440| 63 75 72 73 69 76 65 6c | 79 20 75 6e 77 72 61 70 |cursivel|y unwrap|
|00005450| 70 65 64 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ped."]).|(byte-co|
|00005460| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|00005470| c0 c5 c6 5c 22 88 c0 c7 | c8 5c 22 88 c0 c9 ca 5c |...\"...|.\"....\|
|00005480| 22 88 c0 cb cc 5c 22 88 | cd cb ce cf 23 88 c0 d0 |"....\".|....#...|
|00005490| d1 5c 22 88 cd d0 ce cf | 23 88 c0 d2 d3 5c 22 88 |.\".....|#....\".|
|000054a0| cd d2 ce cf 23 88 c0 d4 | d5 5c 22 88 d6 d7 21 84 |....#...|.\"...!.|
|000054b0| 48 00 d8 16 17 d6 d9 21 | 84 51 00 da 16 19 db 16 |H......!|.Q......|
|000054c0| 1c c0 dd de 5c 22 88 c0 | df e0 5c 22 88 c0 e1 e2 |....\"..|..\"....|
|000054d0| 5c 22 88 c0 e3 e4 5c 22 | 88 e5 e6 e7 5c 22 88 c0 |\"....\"|....\"..|
|000054e0| e8 e9 5c 22 88 c0 ea eb | 5c 22 88 c0 ec ed 5c 22 |..\"....|\"....\"|
|000054f0| 88 c0 ee ec 5c 22 88 c0 | ef f0 5c 22 88 cd ef ce |....\"..|..\"....|
|00005500| cf 23 88 c0 f1 f2 5c 22 | 88 c0 f3 f4 5c 22 88 c0 |.#....\"|....\"..|
|00005510| f5 f6 5c 22 88 c0 f7 f8 | 5c 22 88 c0 f9 fa 5c 22 |..\"....|\"....\"|
|00005520| 88 c0 fb fc 5c 22 88 cd | fd fe ff 23 88 c0 ff 81 |....\"..|...#....|
|00005530| 40 00 5c 22 88 c0 81 41 | 00 81 42 00 5c 22 88 c0 |@.\"...A|..B.\"..|
|00005540| 81 43 00 81 44 00 5c 22 | 88 c0 81 45 00 81 46 00 |.C..D.\"|...E..F.|
|00005550| 5c 22 88 c0 81 47 00 81 | 48 00 5c 22 88 c0 81 49 |\"...G..|H.\"...I|
|00005560| 00 81 4a 00 5c 22 88 c0 | 81 4b 00 81 4c 00 5c 22 |..J.\"..|.K..L.\"|
|00005570| 88 c0 81 4d 00 81 4e 00 | 5c 22 88 c0 81 4f 00 81 |...M..N.|\"...O..|
|00005580| 50 00 5c 22 88 c0 81 51 | 00 81 52 00 5c 22 88 c0 |P.\"...Q|..R.\"..|
|00005590| 81 53 00 81 54 00 5c 22 | 88 c0 81 55 00 81 56 00 |.S..T.\"|...U..V.|
|000055a0| 5c 22 88 c0 81 57 00 81 | 58 00 5c 22 88 c0 81 59 |\"...W..|X.\"...Y|
|000055b0| 00 81 5a 00 5c 22 87 22 | 20 5b 64 65 66 61 6c 69 |..Z.\"."| [defali|
|000055c0| 61 73 20 65 64 65 62 75 | 67 2d 64 65 66 69 6e 69 |as edebu|g-defini|
|000055d0| 6e 67 2d 66 6f 72 6d 20 | 23 5b 28 63 75 72 73 6f |ng-form |#[(curso|
|000055e0| 72 20 66 6f 72 6d 2d 62 | 65 67 69 6e 20 66 6f 72 |r form-b|egin for|
|000055f0| 6d 2d 65 6e 64 20 73 70 | 65 63 6c 69 73 74 29 20 |m-end sp|eclist) |
|00005600| 22 08 89 18 89 40 29 08 | 89 18 41 29 41 19 1a 89 |"....@).|..A)A...|
|00005610| 18 5c 6e a0 88 08 09 a1 | 88 2b c3 08 5c 66 0d 53 |.\n.....|.+..\f.S|
|00005620| 0e 06 24 87 22 20 5b 63 | 75 72 73 6f 72 20 6f 66 |..$." [c|ursor of|
|00005630| 66 73 65 74 73 20 65 78 | 70 72 65 73 73 69 6f 6e |fsets ex|pression|
|00005640| 73 20 65 64 65 62 75 67 | 2d 6d 61 6b 65 2d 66 6f |s edebug|-make-fo|
|00005650| 72 6d 2d 77 72 61 70 70 | 65 72 20 66 6f 72 6d 2d |rm-wrapp|er form-|
|00005660| 62 65 67 69 6e 20 66 6f | 72 6d 2d 65 6e 64 20 73 |begin fo|rm-end s|
|00005670| 70 65 63 6c 69 73 74 5d | 20 36 5d 20 65 64 65 62 |peclist]| 6] edeb|
|00005680| 75 67 2d 6d 61 6b 65 2d | 66 6f 72 6d 2d 77 72 61 |ug-make-|form-wra|
|00005690| 70 70 65 72 20 23 5b 28 | 63 75 72 73 6f 72 20 66 |pper #[(|cursor f|
|000056a0| 6f 72 6d 2d 62 65 67 69 | 6e 20 66 6f 72 6d 2d 65 |orm-begi|n form-e|
|000056b0| 6e 64 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 70 65 |nd &opti|onal spe|
|000056c0| 63 6c 69 73 74 29 20 22 | c0 09 5c 6e 5c 22 89 1b |clist) "|..\n\"..|
|000056d0| 83 12 00 0b 89 1c 41 40 | 29 82 17 00 c5 20 09 c6 |......A@|).... ..|
|000056e0| 93 1e 07 c6 c8 c6 0b 89 | 1c 40 29 c6 89 89 89 1e |........|.@).....|
|000056f0| 09 1e 5c 6e 1e 0b 1e 5c | 66 1e 0d 1e 0e 1e 0f 1e |..\n...\|f.......|
|00005700| 10 0e 11 83 43 00 d2 0e | 13 0e 11 5c 22 82 4a 00 |....C...|...\".J.|
|00005710| d4 d5 0e 13 21 43 21 16 | 0e 0e 5c 66 86 59 00 0e |....!C!.|..\f.Y..|
|00005720| 0d 86 59 00 d6 d7 21 16 | 5c 66 0b 84 6e 00 d8 0e |..Y...!.|\f..n...|
|00005730| 5c 66 0e 07 c5 20 5c 6e | c6 93 23 13 82 90 00 0b |\f... \n|..#.....|
|00005740| 0e 5c 66 09 5c 6e 1e 19 | 1e 1a 1e 1b 89 1c 0e 1b |.\f.\n..|........|
|00005750| a0 88 5c 66 41 40 0e 1a | c6 93 88 dc 5c 66 38 0e |..\fA@..|....\f8.|
|00005760| 19 c6 93 88 2c dd 0b 21 | 88 de df 0e 5c 66 5c 22 |....,..!|....\f\"|
|00005770| 88 e0 0e 10 9f 21 16 10 | e1 0e 5c 66 21 88 e2 0e |.....!..|..\f!...|
|00005780| 5c 66 21 88 0e 23 84 c3 | 00 e4 70 21 86 b8 00 e5 |\f!..#..|..p!....|
|00005790| 20 89 1e 26 e7 0e 26 21 | 42 16 23 29 e8 0e 5c 66 | ..&..&!|B.#)..\f|
|000057a0| e9 0e 07 c6 0e 10 0e 23 | 46 23 88 0e 0e 2e 5c 6e |.......#|F#....\n|
|000057b0| 87 22 20 5b 65 64 65 62 | 75 67 2d 67 65 74 2d 66 |." [edeb|ug-get-f|
|000057c0| 6f 72 6d 2d 64 61 74 61 | 2d 65 6e 74 72 79 20 66 |orm-data|-entry f|
|000057d0| 6f 72 6d 2d 62 65 67 69 | 6e 20 66 6f 72 6d 2d 65 |orm-begi|n form-e|
|000057e0| 6e 64 20 66 6f 72 6d 2d | 64 61 74 61 2d 65 6e 74 |nd form-|data-ent|
|000057f0| 72 79 20 65 6e 74 72 79 | 20 6d 61 6b 65 2d 6d 61 |ry entry| make-ma|
|00005800| 72 6b 65 72 20 6e 69 6c | 20 65 64 65 62 75 67 2d |rker nil| edebug-|
|00005810| 66 6f 72 6d 2d 62 65 67 | 69 6e 2d 6d 61 72 6b 65 |form-beg|in-marke|
|00005820| 72 20 30 20 65 64 65 62 | 75 67 2d 69 6e 73 69 64 |r 0 edeb|ug-insid|
|00005830| 65 2d 66 75 6e 63 20 65 | 64 65 62 75 67 2d 64 65 |e-func e|debug-de|
|00005840| 66 2d 69 6e 74 65 72 61 | 63 74 69 76 65 20 65 64 |f-intera|ctive ed|
|00005850| 65 62 75 67 2d 64 65 66 | 2d 61 72 67 73 20 65 64 |ebug-def|-args ed|
|00005860| 65 62 75 67 2d 64 65 66 | 2d 6e 61 6d 65 20 65 64 |ebug-def|-name ed|
|00005870| 65 62 75 67 2d 6f 6c 64 | 2d 64 65 66 2d 6e 61 6d |ebug-old|-def-nam|
|00005880| 65 20 72 65 73 75 6c 74 | 20 65 64 65 62 75 67 2d |e result| edebug-|
|00005890| 6f 66 66 73 65 74 2d 69 | 6e 64 65 78 20 65 64 65 |offset-i|ndex ede|
|000058a0| 62 75 67 2d 6f 66 66 73 | 65 74 2d 6c 69 73 74 20 |bug-offs|et-list |
|000058b0| 73 70 65 63 6c 69 73 74 | 20 65 64 65 62 75 67 2d |speclist| edebug-|
|000058c0| 6d 61 74 63 68 20 63 75 | 72 73 6f 72 20 65 64 65 |match cu|rsor ede|
|000058d0| 62 75 67 2d 6d 61 6b 65 | 2d 65 6e 74 65 72 2d 77 |bug-make|-enter-w|
|000058e0| 72 61 70 70 65 72 20 65 | 64 65 62 75 67 2d 66 6f |rapper e|debug-fo|
|000058f0| 72 6d 20 67 65 6e 73 79 | 6d 20 22 65 64 65 62 75 |rm gensy|m "edebu|
|00005900| 67 2d 61 6e 6f 6e 22 20 | 65 64 65 62 75 67 2d 6d |g-anon" |edebug-m|
|00005910| 61 6b 65 2d 66 6f 72 6d | 2d 64 61 74 61 2d 65 6e |ake-form|-data-en|
|00005920| 74 72 79 20 65 6e 64 20 | 62 65 67 69 6e 20 6e 61 |try end |begin na|
|00005930| 6d 65 20 32 20 65 64 65 | 62 75 67 2d 6d 61 6b 65 |me 2 ede|bug-make|
|00005940| 2d 74 6f 70 2d 66 6f 72 | 6d 2d 64 61 74 61 2d 65 |-top-for|m-data-e|
|00005950| 6e 74 72 79 20 6d 65 73 | 73 61 67 65 20 22 45 64 |ntry mes|sage "Ed|
|00005960| 65 62 75 67 3a 20 25 73 | 22 20 76 63 6f 6e 63 61 |ebug: %s|" vconca|
|00005970| 74 20 65 64 65 62 75 67 | 2d 63 6c 65 61 72 2d 66 |t edebug|-clear-f|
|00005980| 72 65 71 75 65 6e 63 79 | 2d 63 6f 75 6e 74 20 65 |requency|-count e|
|00005990| 64 65 62 75 67 2d 63 6c | 65 61 72 2d 63 6f 76 65 |debug-cl|ear-cove|
|000059a0| 72 61 67 65 20 65 64 65 | 62 75 67 2d 74 6f 70 2d |rage ede|bug-top-|
|000059b0| 77 69 6e 64 6f 77 2d 64 | 61 74 61 20 67 65 74 2d |window-d|ata get-|
|000059c0| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 20 73 65 |buffer-w|indow se|
|000059d0| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 77 69 |lected-w|indow wi|
|000059e0| 6e 64 6f 77 20 77 69 6e | 64 6f 77 2d 73 74 61 72 |ndow win|dow-star|
|000059f0| 74 20 70 75 74 20 65 64 | 65 62 75 67 5d 20 39 5d |t put ed|ebug] 9]|
|00005a00| 20 65 64 65 62 75 67 2d | 63 6c 65 61 72 2d 66 72 | edebug-|clear-fr|
|00005a10| 65 71 75 65 6e 63 79 2d | 63 6f 75 6e 74 20 23 5b |equency-|count #[|
|00005a20| 28 6e 61 6d 65 29 20 22 | c0 09 c2 c3 5c 66 47 c5 |(name) "|....\fG.|
|00005a30| 5c 22 23 87 22 20 5b 70 | 75 74 20 6e 61 6d 65 20 |\"#." [p|ut name |
|00005a40| 65 64 65 62 75 67 2d 66 | 72 65 71 2d 63 6f 75 6e |edebug-f|req-coun|
|00005a50| 74 20 6d 61 6b 65 2d 76 | 65 63 74 6f 72 20 65 64 |t make-v|ector ed|
|00005a60| 65 62 75 67 2d 6f 66 66 | 73 65 74 2d 6c 69 73 74 |ebug-off|set-list|
|00005a70| 20 30 5d 20 36 5d 20 65 | 64 65 62 75 67 2d 63 6c | 0] 6] e|debug-cl|
|00005a80| 65 61 72 2d 63 6f 76 65 | 72 61 67 65 20 23 5b 28 |ear-cove|rage #[(|
|00005a90| 6e 61 6d 65 29 20 22 c0 | 09 c2 c3 5c 66 47 c5 5c |name) ".|...\fG.\|
|00005aa0| 22 23 87 22 20 5b 70 75 | 74 20 6e 61 6d 65 20 65 |"#." [pu|t name e|
|00005ab0| 64 65 62 75 67 2d 63 6f | 76 65 72 61 67 65 20 6d |debug-co|verage m|
|00005ac0| 61 6b 65 2d 76 65 63 74 | 6f 72 20 65 64 65 62 75 |ake-vect|or edebu|
|00005ad0| 67 2d 6f 66 66 73 65 74 | 2d 6c 69 73 74 20 75 6e |g-offset|-list un|
|00005ae0| 6b 6e 6f 77 6e 5d 20 36 | 5d 20 65 64 65 62 75 67 |known] 6|] edebug|
|00005af0| 2d 66 6f 72 6d 20 23 5b | 28 63 75 72 73 6f 72 29 |-form #[|(cursor)|
|00005b00| 20 22 c0 09 c2 5c 22 1b | 09 89 19 41 40 29 1c 0b | "...\".|...A@)..|
|00005b10| 3a 83 69 00 0b 40 c5 3d | 83 1c 00 0b 82 a2 00 0b |:.i..@.=|........|
|00005b20| 40 89 1e 06 39 85 29 00 | c7 0e 06 21 1e 08 c9 0b |@...9.).|...!....|
|00005b30| 5c 66 5c 22 1e 5c 6e 0e | 08 3a 83 53 00 0e 08 40 |\f\".\n.|.:.S...@|
|00005b40| cb 3d 83 53 00 cc 0e 5c | 6e 5c 66 40 cd 09 21 ce |.=.S...\|n\f@..!.|
|00005b50| 0e 06 21 0e 08 41 42 24 | 82 65 00 cf d0 5c 66 40 |..!..AB$|.e...\f@|
|00005b60| 21 d1 0e 5c 6e 21 d0 0e | 5c 6e 89 19 41 29 21 23 |!..\n!..|\n..A)!#|
|00005b70| 2b 82 a2 00 0b 39 83 a1 | 00 0b d2 3e 84 80 00 d3 |+....9..|...>....|
|00005b80| d4 21 83 84 00 d4 0b 21 | 83 84 00 0b 82 a2 00 0e |.!.....!|........|
|00005b90| 15 83 97 00 cf d0 5c 66 | 40 21 0b d0 5c 66 41 21 |......\f|@!..\fA!|
|00005ba0| 23 82 a2 00 d6 0b d0 5c | 66 41 21 5c 22 82 a2 00 |#......\|fA!\"...|
|00005bb0| 0b d7 09 21 88 2a 87 22 | 20 5b 65 64 65 62 75 67 |...!.*."| [edebug|
|00005bc0| 2d 74 6f 70 2d 65 6c 65 | 6d 65 6e 74 2d 72 65 71 |-top-ele|ment-req|
|00005bd0| 75 69 72 65 64 20 63 75 | 72 73 6f 72 20 22 45 78 |uired cu|rsor "Ex|
|00005be0| 70 65 63 74 65 64 20 66 | 6f 72 6d 22 20 66 6f 72 |pected f|orm" for|
|00005bf0| 6d 20 6f 66 66 73 65 74 | 20 71 75 6f 74 65 20 68 |m offset| quote h|
|00005c00| 65 61 64 20 67 65 74 2d | 65 64 65 62 75 67 2d 73 |ead get-|edebug-s|
|00005c10| 70 65 63 20 73 70 65 63 | 20 65 64 65 62 75 67 2d |pec spec| edebug-|
|00005c20| 6e 65 77 2d 63 75 72 73 | 6f 72 20 6e 65 77 2d 63 |new-curs|or new-c|
|00005c30| 75 72 73 6f 72 20 26 64 | 65 66 69 6e 65 20 65 64 |ursor &d|efine ed|
|00005c40| 65 62 75 67 2d 64 65 66 | 69 6e 69 6e 67 2d 66 6f |ebug-def|ining-fo|
|00005c50| 72 6d 20 65 64 65 62 75 | 67 2d 61 66 74 65 72 2d |rm edebu|g-after-|
|00005c60| 6f 66 66 73 65 74 20 73 | 79 6d 62 6f 6c 2d 6e 61 |offset s|ymbol-na|
|00005c70| 6d 65 20 65 64 65 62 75 | 67 2d 6d 61 6b 65 2d 62 |me edebu|g-make-b|
|00005c80| 65 66 6f 72 65 2d 61 6e | 64 2d 61 66 74 65 72 2d |efore-an|d-after-|
|00005c90| 66 6f 72 6d 20 65 64 65 | 62 75 67 2d 69 6e 63 2d |form ede|bug-inc-|
|00005ca0| 6f 66 66 73 65 74 20 65 | 64 65 62 75 67 2d 6c 69 |offset e|debug-li|
|00005cb0| 73 74 2d 66 6f 72 6d 20 | 28 74 20 6e 69 6c 29 20 |st-form |(t nil) |
|00005cc0| 66 62 6f 75 6e 64 70 20 | 6b 65 79 77 6f 72 64 70 |fboundp |keywordp|
|00005cd0| 20 65 64 65 62 75 67 2d | 73 74 6f 70 2d 62 65 66 | edebug-|stop-bef|
|00005ce0| 6f 72 65 2d 73 79 6d 62 | 6f 6c 73 20 65 64 65 62 |ore-symb|ols edeb|
|00005cf0| 75 67 2d 6d 61 6b 65 2d | 61 66 74 65 72 2d 66 6f |ug-make-|after-fo|
|00005d00| 72 6d 20 65 64 65 62 75 | 67 2d 6d 6f 76 65 2d 63 |rm edebu|g-move-c|
|00005d10| 75 72 73 6f 72 5d 20 37 | 5d 20 65 64 65 62 75 67 |ursor] 7|] edebug|
|00005d20| 2d 66 6f 72 6d 73 20 23 | 5b 28 63 75 72 73 6f 72 |-forms #|[(cursor|
|00005d30| 29 20 22 c0 09 c2 5c 22 | 87 22 20 5b 65 64 65 62 |) "...\"|." [edeb|
|00005d40| 75 67 2d 6d 61 74 63 68 | 20 63 75 72 73 6f 72 20 |ug-match| cursor |
|00005d50| 28 26 72 65 73 74 20 66 | 6f 72 6d 29 5d 20 33 5d |(&rest f|orm)] 3]|
|00005d60| 20 70 75 74 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 | put byt|e-optimi|
|00005d70| 7a 65 72 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |zer byte|-compile|
|00005d80| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 20 65 |-inline-|expand e|
|00005d90| 64 65 62 75 67 2d 73 65 | 78 70 73 20 23 5b 28 63 |debug-se|xps #[(c|
|00005da0| 75 72 73 6f 72 29 20 22 | c0 09 c2 5c 22 87 22 20 |ursor) "|...\"." |
|00005db0| 5b 65 64 65 62 75 67 2d | 6d 61 74 63 68 20 63 75 |[edebug-|match cu|
|00005dc0| 72 73 6f 72 20 28 26 72 | 65 73 74 20 73 65 78 70 |rsor (&r|est sexp|
|00005dd0| 29 5d 20 33 5d 20 65 64 | 65 62 75 67 2d 6c 69 73 |)] 3] ed|ebug-lis|
|00005de0| 74 2d 66 6f 72 6d 2d 61 | 72 67 73 20 23 5b 28 68 |t-form-a|rgs #[(h|
|00005df0| 65 61 64 20 63 75 72 73 | 6f 72 29 20 22 c0 09 21 |ead curs|or) "..!|
|00005e00| 89 1a 83 4c 00 5c 6e 3a | 83 1a 00 c3 89 1c 1d c6 |...L.\n:|........|
|00005e10| 0e 07 5c 6e 5c 22 2a 82 | 7b 00 5c 6e c8 3d 83 2d |..\n\"*.|{.\n.=.-|
|00005e20| 00 0e 07 1e 07 c9 0e 07 | ca 5c 22 29 82 7b 00 5c |........|.\").{.\|
|00005e30| 6e cb 3d 83 40 00 0e 07 | 1e 07 c9 0e 07 cc 5c 22 |n.=.@...|......\"|
|00005e40| 29 82 7b 00 5c 6e 39 85 | 7b 00 5c 6e 0e 07 21 82 |).{.\n9.|{.\n..!.|
|00005e50| 7b 00 cd 09 21 83 71 00 | 0e 0e 83 64 00 0e 07 1e |{...!.q.|...d....|
|00005e60| 07 c9 0e 07 ca 5c 22 29 | 82 7b 00 0e 07 1e 07 c9 |.....\")|.{......|
|00005e70| 0e 07 cc 5c 22 29 82 7b | 00 0e 07 1e 07 c9 0e 07 |...\").{|........|
|00005e80| ca 5c 22 29 29 87 22 20 | 5b 67 65 74 2d 65 64 65 |.\"))." |[get-ede|
|00005e90| 62 75 67 2d 73 70 65 63 | 20 68 65 61 64 20 73 70 |bug-spec| head sp|
|00005ea0| 65 63 20 6e 69 6c 20 65 | 64 65 62 75 67 2d 65 72 |ec nil e|debug-er|
|00005eb0| 72 6f 72 2d 70 6f 69 6e | 74 20 65 64 65 62 75 67 |ror-poin|t edebug|
|00005ec0| 2d 62 65 73 74 2d 65 72 | 72 6f 72 20 65 64 65 62 |-best-er|ror edeb|
|00005ed0| 75 67 2d 6d 61 74 63 68 | 2d 73 75 62 6c 69 73 74 |ug-match|-sublist|
|00005ee0| 20 63 75 72 73 6f 72 20 | 74 20 65 64 65 62 75 67 | cursor |t edebug|
|00005ef0| 2d 6d 61 74 63 68 20 28 | 26 72 65 73 74 20 66 6f |-match (|&rest fo|
|00005f00| 72 6d 29 20 30 20 28 26 | 72 65 73 74 20 73 65 78 |rm) 0 (&|rest sex|
|00005f10| 70 29 20 65 64 65 62 75 | 67 2d 6d 61 63 72 6f 70 |p) edebu|g-macrop|
|00005f20| 20 65 64 65 62 75 67 2d | 65 76 61 6c 2d 6d 61 63 | edebug-|eval-mac|
|00005f30| 72 6f 2d 61 72 67 73 5d | 20 34 5d 20 65 64 65 62 |ro-args]| 4] edeb|
|00005f40| 75 67 2d 6c 69 73 74 2d | 66 6f 72 6d 20 23 5b 28 |ug-list-|form #[(|
|00005f50| 63 75 72 73 6f 72 29 20 | 22 c0 09 c2 5c 22 c3 c4 |cursor) |"...\"..|
|00005f60| 89 1d 1e 06 1e 07 1e 08 | 09 89 19 89 40 29 09 89 |........|....@)..|
|00005f70| 19 41 29 41 1e 09 1e 5c | 6e 89 19 0e 5c 6e a0 88 |.A)A...\|n...\n..|
|00005f80| 09 0e 09 a1 88 2b 0e 08 | 84 33 00 c4 82 00 01 0e |.....+..|.3......|
|00005f90| 08 39 83 da 00 0e 08 84 | 44 00 cb cc 21 82 00 01 |.9......|D...!...|
|00005fa0| 0e 08 cd 3d 83 57 00 ce | 16 0f d0 09 21 88 d1 20 |...=.W..|....!.. |
|00005fb0| 82 00 01 0e 08 89 d0 09 | 21 19 1e 08 d2 0e 08 21 |........|!......!|
|00005fc0| 89 1e 13 83 ae 00 0e 13 | 3a 83 7f 00 c4 89 1e 14 |........|:.......|
|00005fd0| 1e 15 d6 09 0e 13 5c 22 | 2a 82 d5 00 0e 13 c3 3d |......\"|*......=|
|00005fe0| 83 90 00 09 19 d7 09 d8 | 5c 22 29 82 d5 00 0e 13 |........|\").....|
|00005ff0| d9 3d 83 a1 00 09 19 d7 | 09 da 5c 22 29 82 d5 00 |.=......|..\")...|
|00006000| 0e 13 39 85 d5 00 0e 13 | 09 21 82 d5 00 db 0e 08 |..9.....|.!......|
|00006010| 21 83 ce 00 0e 1c 83 c4 | 00 09 19 d7 09 d8 5c 22 |!.......|......\"|
|00006020| 29 82 d5 00 09 19 d7 09 | da 5c 22 29 82 d5 00 09 |).......|.\")....|
|00006030| 19 d7 09 d8 5c 22 29 2b | 42 82 00 01 0e 08 3a 83 |....\")+|B.....:.|
|00006040| fd 00 0e 08 3c 83 f5 00 | 0e 08 40 dd 3d 83 f5 00 |....<...|..@.=...|
|00006050| d7 09 de 5c 22 82 00 01 | df 09 e0 df 23 82 00 01 |...\"...|....#...|
|00006060| cb e1 21 2c 87 22 20 5b | 65 64 65 62 75 67 2d 74 |..!,." [|edebug-t|
|00006070| 6f 70 2d 65 6c 65 6d 65 | 6e 74 2d 72 65 71 75 69 |op-eleme|nt-requi|
|00006080| 72 65 64 20 63 75 72 73 | 6f 72 20 22 45 78 70 65 |red curs|or "Expe|
|00006090| 63 74 65 64 20 65 6c 65 | 6d 65 6e 74 73 22 20 74 |cted ele|ments" t|
|000060a0| 20 6e 69 6c 20 65 64 65 | 62 75 67 2d 26 72 65 73 | nil ede|bug-&res|
|000060b0| 74 20 65 64 65 62 75 67 | 2d 26 6f 70 74 69 6f 6e |t edebug|-&option|
|000060c0| 61 6c 20 65 64 65 62 75 | 67 2d 67 61 74 65 20 68 |al edebu|g-gate h|
|000060d0| 65 61 64 20 6f 66 66 73 | 65 74 73 20 65 78 70 72 |ead offs|ets expr|
|000060e0| 65 73 73 69 6f 6e 73 20 | 65 64 65 62 75 67 2d 73 |essions |edebug-s|
|000060f0| 79 6e 74 61 78 2d 65 72 | 72 6f 72 20 22 6e 69 6c |yntax-er|ror "nil|
|00006100| 20 68 65 61 64 22 20 69 | 6e 74 65 72 61 63 74 69 | head" i|nteracti|
|00006110| 76 65 2d 70 20 63 68 65 | 63 6b 2d 69 74 20 65 64 |ve-p che|ck-it ed|
|00006120| 65 62 75 67 2d 64 65 66 | 2d 69 6e 74 65 72 61 63 |ebug-def|-interac|
|00006130| 74 69 76 65 20 65 64 65 | 62 75 67 2d 6d 6f 76 65 |tive ede|bug-move|
|00006140| 2d 63 75 72 73 6f 72 20 | 65 64 65 62 75 67 2d 69 |-cursor |edebug-i|
|00006150| 6e 74 65 72 61 63 74 69 | 76 65 2d 70 2d 6e 61 6d |nteracti|ve-p-nam|
|00006160| 65 20 67 65 74 2d 65 64 | 65 62 75 67 2d 73 70 65 |e get-ed|ebug-spe|
|00006170| 63 20 73 70 65 63 20 65 | 64 65 62 75 67 2d 65 72 |c spec e|debug-er|
|00006180| 72 6f 72 2d 70 6f 69 6e | 74 20 65 64 65 62 75 67 |ror-poin|t edebug|
|00006190| 2d 62 65 73 74 2d 65 72 | 72 6f 72 20 65 64 65 62 |-best-er|ror edeb|
|000061a0| 75 67 2d 6d 61 74 63 68 | 2d 73 75 62 6c 69 73 74 |ug-match|-sublist|
|000061b0| 20 65 64 65 62 75 67 2d | 6d 61 74 63 68 20 28 26 | edebug-|match (&|
|000061c0| 72 65 73 74 20 66 6f 72 | 6d 29 20 30 20 28 26 72 |rest for|m) 0 (&r|
|000061d0| 65 73 74 20 73 65 78 70 | 29 20 65 64 65 62 75 67 |est sexp|) edebug|
|000061e0| 2d 6d 61 63 72 6f 70 20 | 65 64 65 62 75 67 2d 65 |-macrop |edebug-e|
|000061f0| 76 61 6c 2d 6d 61 63 72 | 6f 2d 61 72 67 73 20 5c |val-macr|o-args \|
|00006200| 2c 20 28 28 22 2c 22 20 | 64 65 66 2d 66 6f 72 6d |, (("," |def-form|
|00006210| 29 20 62 6f 64 79 29 20 | 65 64 65 62 75 67 2d 6d |) body) |edebug-m|
|00006220| 61 74 63 68 2d 73 70 65 | 63 73 20 28 6c 61 6d 62 |atch-spe|cs (lamb|
|00006230| 64 61 2d 65 78 70 72 20 | 62 6f 64 79 29 20 22 48 |da-expr |body) "H|
|00006240| 65 61 64 20 6f 66 20 6c | 69 73 74 20 66 6f 72 6d |ead of l|ist form|
|00006250| 20 6d 75 73 74 20 62 65 | 20 61 20 73 79 6d 62 6f | must be| a symbo|
|00006260| 6c 20 6f 72 20 6c 61 6d | 62 64 61 20 65 78 70 72 |l or lam|bda expr|
|00006270| 65 73 73 69 6f 6e 2e 22 | 5d 20 36 5d 20 62 6f 75 |ession."|] 6] bou|
|00006280| 6e 64 70 20 65 64 65 62 | 75 67 2d 61 66 74 65 72 |ndp edeb|ug-after|
|00006290| 2d 64 6f 74 74 65 64 2d | 73 70 65 63 20 6e 69 6c |-dotted-|spec nil|
|000062a0| 20 65 64 65 62 75 67 2d | 6d 61 74 63 68 69 6e 67 | edebug-|matching|
|000062b0| 2d 64 65 70 74 68 20 30 | 20 31 35 30 20 65 64 65 |-depth 0| 150 ede|
|000062c0| 62 75 67 2d 6d 61 78 2d | 64 65 70 74 68 20 65 64 |bug-max-|depth ed|
|000062d0| 65 62 75 67 2d 6e 6f 2d | 6d 61 74 63 68 20 23 5b |ebug-no-|match #[|
|000062e0| 28 63 75 72 73 6f 72 20 | 26 72 65 73 74 20 65 64 |(cursor |&rest ed|
|000062f0| 65 62 75 67 2d 61 72 67 | 73 29 20 22 08 86 07 00 |ebug-arg|s) "....|
|00006300| c1 5c 6e 21 10 0b 86 0d | 00 5c 66 13 0d 83 23 00 |.\n!....|.\f...#.|
|00006310| 0e 06 84 23 00 08 83 1e | 00 08 62 88 c7 c8 5c 66 |...#....|..b...\f|
|00006320| 5c 22 87 c9 ca 5c 66 5c | 22 87 22 20 5b 65 64 65 |\"...\f\|"." [ede|
|00006330| 62 75 67 2d 65 72 72 6f | 72 2d 70 6f 69 6e 74 20 |bug-erro|r-point |
|00006340| 65 64 65 62 75 67 2d 62 | 65 66 6f 72 65 2d 6f 66 |edebug-b|efore-of|
|00006350| 66 73 65 74 20 63 75 72 | 73 6f 72 20 65 64 65 62 |fset cur|sor edeb|
|00006360| 75 67 2d 62 65 73 74 2d | 65 72 72 6f 72 20 65 64 |ug-best-|error ed|
|00006370| 65 62 75 67 2d 61 72 67 | 73 20 65 64 65 62 75 67 |ebug-arg|s edebug|
|00006380| 2d 67 61 74 65 20 65 64 | 65 62 75 67 2d 26 6f 70 |-gate ed|ebug-&op|
|00006390| 74 69 6f 6e 61 6c 20 61 | 70 70 6c 79 20 65 64 65 |tional a|pply ede|
|000063a0| 62 75 67 2d 73 79 6e 74 | 61 78 2d 65 72 72 6f 72 |bug-synt|ax-error|
|000063b0| 20 74 68 72 6f 77 20 6e | 6f 2d 6d 61 74 63 68 5d | throw n|o-match]|
|000063c0| 20 33 5d 20 65 64 65 62 | 75 67 2d 6d 61 74 63 68 | 3] edeb|ug-match|
|000063d0| 20 23 5b 28 63 75 72 73 | 6f 72 20 73 70 65 63 73 | #[(curs|or specs|
|000063e0| 29 20 22 c0 89 89 89 09 | 19 1a 1b 1c 1d c6 0e 07 |) ".....|........|
|000063f0| 0e 08 c6 23 2d 87 22 20 | 5b 6e 69 6c 20 65 64 65 |...#-." |[nil ede|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
